MOTOROLA ASSEMBLER B7/85/82 83.44.28. SEITE NR 1 
HWTEST 

2 0000 BEGIN HWTEST 

3 

5 

6 * HARDUARETEST2 24-SEP-80 

7 

8 » INCLUDES; 

9 

10 * MAIN HARDWARE SUBMONITOR 

11 * SELFTEST MONITOR 

12 * MICROCONTROLLER SUBMONITOR 

13 « ALU-TEST SUBMONITOR 

14 * MAIN MEMORY SUBMONITOR 
15 

j.5 **»*»*****)******«!*******»**********#*#*****#**** *«****■ ****** 
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HWTEST 

3_9 *#*******#»»*****#######***#*#***#######*##**»**#»*^ 

20 » * 

21 * DIAGNOSTIC PANEL M6802-SOFTWARE 23.05.80 
22 

23 * J.HOPPE • 

24 » I.NOACK 

25 * R.OHRAN 

26 * W.WINIGER 
27 

28 «**s****#*********************«*******w#&**###**#s^ 

29 

30 

31 BIN EQU 0C09C 

32 *«» HEXADECIMAL (ASCII) TO BINARY CONVERSION 
33 

34 » ARGUMENT: A = CHARACTER TO BE CONVERTED 

35 * RESULTS: CARRY = RESET, IF A CONTAINED A VALID HEX DIGIT 

36 « SET OTHERWISE 

37 • A = BINARY VALUE OF THE PARAMETER A IF CARRY RESET 

38 • UNDEFINED OTHERWISE 
39 

40 HEX EQU 0C0B3 

41 *** BINARY TO HEXADECIMAL (ASCII) CONVERSION 
42 

43 « ARGUMENT: A = FOUR BIT VALUE TO BE CONVERTED 

44 * RESULTS: A - ASCII-CHARACTER REPRESENTING AS HEX DIGIT 

45 * THE FOUR BIT NUMBER CONTAINED IN PAR. A 
46 

47 R.CH EQU 0C024 

48 **«« READ A CHARACTER FROM THE HP AND ECHO IT 
49 

50 « ARGUMENT: 

51 « RESULT: A = CHARACTER READ FROM THE UART 

52 « SIDE EFFECT: R.CH POLLS UNTIL A CHARACTER IS SENT TO IT 

53 « A = ESC -> CONTROL IS TRANSFERED TO THE SUBMONITOR 

54 * A = tC -> CONTROL IS TRANSFERED TO THE MONITOR 

55 * A = QUESTIONMARK -> MENU IS DISPLAYED 
56 

57 READ.CH EQU 0E003 SAME AS R.CH BUT WITHOUT ECHO AND WITHOUT INTER- 

58 ....... PRETATION OF A 

59 

60 BREAK EQU 0C046 

61 ..?«. READ A CHARACTER FROM THE HP (WITHOUT POLLING) 

62 » RESULT: A = CHARACTER READ FROM THE UART 

63 * = IF NO KEY WAS PRESSED 

64 . SIDE EFFECT: SEE R.CH 
65 

66 W.CH EQU 0C051 

67 .... WRITE A CHARACTER TO THE HP 
68 

69 « ARGUMENT: A = CHARACTER TO BE WRITTEN 

78 « RESULT: 

71 * SIDE EFFECT; W.CH POLLS UNTIL IT MAY SEND THE CHARACTER 
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73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 



W.l. BLANK EQU 0C062 

W. 2. BLANK EQU 0C060 

W. 3. BLANK EQU 0C05E 

.««.*,«*• WRITE N BLANKS TO THE HP 

V. STRING EQU 0C06A 

..«««**« WRITE A STRING TO THE HP 

* 

ARGUMENT: X = ADDRESS OF THE STRING TO BE WRITTEN 

(TERMINATED BY A 0-BYTE) 
RESULT: 
SIDE EFFECT: POLLING MAY OCCUR, SINCE V. STRING CALLS W.CH 

X RETURNS THE ADDRESS OF THE 0-BYTE TERMINATING 

THE STRING +1 

W.CRLF EQU 0C078 

»»»•»» WRITE A CARRIAGE RETURN / LINE FEED TO THE HP 



91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 



NO 

** 

IN. HEX 

****** 



READ. HEX 

******** 

OUT. HEX 

******* 



IN. BYTE 



READ. BYTE 

**#*»* * *« 



ARGUMENT : 
RESULT : 

EQU 0C097 

WRITE AN EXCLAMATION POINT TO THE HP 

EQU 0C085 

INPUT A HEXADECIMAL DIGIT FROM THE HP (WITH ECHO) 

ARGUMENT : 

RESULT: A = FOUR BIT VALUE OF THE CHARACTER READ 

SIDE EFFECT: IN. HEX READS CHARACTERS FROM THE HP UNTIL A 

VALID HEX DIGIT IS ENCOUNTERED; CHARACTERS > '9' 

ARE CONVERTED TO CAPS 

EQU 0E00D IN. HEX WITHOUT ECHO 



EQU 0C098 

OUTPUT A HEXADECIMAL DIGIT TO THE HP 

ARGUMENT: A = FOUR BIT BINARY VALUE OF THE HEX. DIGIT TO BE 

WRITTEN 
RESULT : 

EQU 8C0BC 

INPUT TWO HEX DIGITS FROM THE HP INTERPRETING THEM AS A BYTE 

(WITH ECHO) 
ARGUMENT: 
RESULT: A = EIGHT BIT VALUE FORMED FROM THE TWO CHARACTERS 

READ 
SIDE EFFECT: IN. BYTE READS CHARACTERS FROM THE HP UNTIL TWO VALID 
HEX DIGITS ARE ENCOUNTERED 

EQU 0E01A IN. BYTE WITHOUT ECHO 
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HWTEST 

128 OUT. BYTE EQU 0C0C9 

129 ««•«.... OUTPUT AN EIGHT BIT NUMBER REPRESENTED BY TWO HEXADECIMAL DIGITS 

130 « 

131 * ARGUMENT: A = THE BYTE TO BE WRITTEN TO THE HP 

132 « RESULT: 
133 

134 IN. WORD EQU 0C0D8 

135 *.»»»»» INPUT FOUR HEX DIGITS FROM THE HP INTERPRETING THEM AS A SIXTEEN 

136 « BIT NUMBER (WITH ECHO) 
137 

138 » ARGUMENT: X = ADDRESS OF THE MEMORY LOCATION WHERE THE WORD 

139 * READ HAS TO BE STORED 

140 « RESULTS: M[X] AND M[X+1] CONTAIN THE DATA READ 

141 « SIDE EFFECT: IN. WORD READS CHARACTERS FROM THE HP UNTIL FOUR 

142 * VALID HEX DIGITS ARE ENCOUNTERED 
143 

144 READ. WORD EQU 0E027 IN. WORD WITHOUT ECHO 

146 

147 OUT. WORD EQU 0C0E3 

148 ........ OUTPUT A 16-BIT NUMBER REPRESENTED BY FOUR HEX DIGITS 

149 » 

150 * ARGUMENTS: X = ADDRESS OF THE MEMORY LOCATION CONTAINING THE 

151 . WORD TO BE WRITTEN 

152 * M[X] = HIGH BYTE, 

153 * M[X+1] = LOW BYTE OF THE WORD 

154 « RESULT: 
155 

156 FAST. READ EQU 0C0EE 

157 ......... INITALIZE THE HP READING ITS CASSETTE AND TRANSFERING ONE FILE 

158 

159 LINE. READ EQU 0C0FB 

160 ......... INITIALIZE THE HP READING ITS CASSETTE AND SENDING ONE LINE 

161 

162 
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164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 



MENU 

**** 



GET. KEY 

******* 



GET. WORD 



******** 



COMMANDS 



******** 



BOOT 



******** 



EQU 0C336 

WRITE THE MENU POINTED TO BY ACT. MENU ON THE SCREEN 

ARGUMENT: ACT. MENU = ADDRESS OF THE MENU (ASCII STRINGS 
AND ENTRYPTS) 

EQU 0C352 

PROMPT WITH CR/LF AND A '*', CALL GETWORD AND REPEAT THEN 
ACCEPTING A 'KEY' UNTIL (SKIPPING BLANKS) THIS IS THE FIRST CHA- 
RACTER OF ONE OF THE LINES OF THE MENU. CONVERT ALL CHARACTERS 
TO CAPS. JUMP THEN TO THE ROUTINE IDENTIFIED BY THIS 'KEY 1 . 



ARGUMENT: ACT.SUB.MON = ADDRESS OF THE MENU 
RESULTS: X.WORD (AT LOCATION 0F) = THE ADDRESS ENTERED BEFOR 

THE CHARACTER 
CARRY = FALSE IF NO ADDRESS AT ALL WAS ENTERED 
= TRUE IF X.WORD CONTAINES AN ADDRESS 
SIDE EFFECT: X IS DESTROID BY GET. KEY 



EQU 0C2FE 

READ HEX DIGITS FROM THE HP SKIPPING BLANKS AT THE BEGINNIG INTER- 
PRETING THEM AS A NUMBER UNTIL A NONNUMERICAL CHARACTER IS 
ENCOUNTERED 

RESULTS: X.WORD (AT ADDRESS 0F) = BINARY VALUE OF THE LAST 

4 HEX DIGITS ENTERED 
A - THE NONHEX CHARACTER WHICH TERMINATED THE INPUT 
CARR (AT LOCATION 11) = IF THE FIRST CHARACTER 

ENTERED WAS NONHEXADECIMAL, 
= FF IF A NUMBER WAS ENTERED 
FIRST 

EQU 0C391 STORE THE CONTENT OF THE X-REGISTER INTO ACT.SUB.MON, 
WRITE THE STRING POINTED TO BY MAIM. ID ON THE SCREEN 
AND REPEAT THEN CALLING GET. KEY. 

ARGUMENT: X = POINTER TO THE ACTUAL MENU. 

EQU 0E2C5 BOOTSTRAP THE PERSONAL COMPUTER 



SET. U. PC EQU 0E2D5 SET THE MICRO PROGRAM COUNTER 



LOAD. U. RAM EQU 0E3B3 LOAD THE MICRO-RAM FROM THE EPROM'S 



********** 
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211 
212 
213 
214 
215 
216 
217 
213 
219 
223 
221 
222 
223 
224 
225 
226 
227 
228 
229 
238 
231 
232 
233 
234 
235 
236 
237 
238 
239 
248 
241 
242 
243 
244 
245 
246 
247 
243 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
268 
261 
262 
263 
264 
265 



PUSH.X 
PULL.X 

****** 

PRINT. X 

St****** 

WUM 

**# 



RUM 



STUPC 

***** 



EXX 

*** 



RCPU 

*** * 



WCPU 

**** 



EPMIR 

ft* *#* 

EDMIR 

***** 

LDMIR 

***** 



MCLK 

** ** 



EQU 0C259 
STORES X ON STACK 

EQU 0C270 

RETRIEVES X FROM STACK 

EQU 0C287 

PRINTS THE CONTENT OF THE X-REGISTER 

EQU 8C17B 

WRITE MICRO MEMORY ROUTINE 

UMEM(X,B):=A 

EQU 0C190 

MICRO MEMORY READ ROUTINE 

A:=UMEM(X,B) 

EQU 8C1C2 

STORE MICRO PROGRAM COUNTER 

PREPARES MICROCONTROLLER FOR EXECUTION AT ADDRESS IN X 

UPC:=X 

EQU 0C117 

EXECUTES MICRO INSTRUCTION POINTED TO BY X 

X POINTS TO MOST SIGNIFICANT BYTE 

MOST SIGNIFICANT BYTE HAS LOWEST ADDRESS 

X IS INCREMENTED BY 5 

EQU 8C1F0 
READ CPU DATA BUS 
B GETS TOP HALF 
A GETS BOTTOM HALF 

EQU 0C1F7 

WRITE CPU DATA REGISTER 

CPU BUS REGISTER := B«256 + A 

DATA IS GATED TO BUS WHEN SOURCE 13 IS ADDRESSED 

EQU 0C15F 

ENABLE PERSONAL COMPUTER MIR REGISTER 

EQU 0C158 

DIAGNOSTIC PANEL MIR REGISTER IS ENABLED 

EQU 0C11D 

DIAGNOSTIC PANEL MIR REGISTER IS LOADED WITH 

DATA POINTED TO BY X 

MOST SIGNIFICANT BYTE HAS THE LOWEST ADDRESS 

X IS RETURNED INCREMENTED BY 5 

RETURNS WITH DIAGNOSTIC MIR REGISTER ENABLED 

NO CPU CLOCK PULSE IS GIVEN 

USEFUL TO GATE DATE NON-DESTRUCTIVELY TO CPU BUS 

EQU 8C1AC 

SEND ONE MICRO CLOCK PULSE (DISABLE CPU CLOCK) 
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267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
236 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 



RMM EQU 0G1FE 

READ MAIN MEMORY 
B: = MAIN(X)DIV 256 

* A:- MAIN(X)MOD 256 

RMMS EQU 0C211 

«««« SHORT (QUICK) VERSION OF RMM 

* MAY ONLY BE USED AFTER A LONG VERSION CALL HAS BEEN MADE AND 
NO OTHER DMIR OPERATIONS HAVE OCCURED 

VMM EQU 0C228 

WRITE MAIN MEMORY 
« MAIN(X):=256*B + A 

VMMS EQU 0C23D 

**** SHORT VERSION OF VMM. SEE RMMS COMMENTS 

LATCH EQU 0C151 

.,*„ MICRO MEMORY ADDRESS REGISTER IS LATCHED 

UNLCH EOU 0C14A 

.«».» MICRO MEMORY ADDRESS REGISTER IS UNLATCHED 

D2911 EQU 0C13E 

«»«*« MICRO MEMORY ADDRESS OUTPUTS FROM PERSONAL COMPUTER 
» ARE DISABLED AND ADDRESS REGISTER FROM DIAGNOSTIC 
PANEL IS ENABLED 

E2911 EQU 0C174 
.**.. REVERSE OF D2911 

STOP EQU 0C16D 

«*»* DISABLE CPU CLOCK AND ENABLE SINGLE STEP MODE 

START EQU 0C166 
***** ENABLE CPU CLOCK 

RESET EQU 0C290 

*»*** RESET COMPUTER; INITIATE STAT0 VECTOR 

READ . REG EQU 0C2DD 
******** READ A 2901 REGISTER 

* , ARGUMENT: B = NR OF THE REGISTER ( . . BF OR Q.REG) 

RESULT: X = THE VALUE 

EQU 0C2A5 

MIR USED BY THE READ. REG 

EQU 0C2AA 

LOAD A 2901 REGISTER 

* ARGUMENTS: B = NR OF THE REGISTER ( 0. .BF OF Q.REG) 

* X = VALUE TO BE LOADED 

WRITE. R EQU 0C2A0 

******* MIR USED BY LOAD. REG 



READ 


R 


*#*»** 


LOAD 


REG 


*««*»*# 
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324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 



PRINT. BUS EQU 



0E1AA 

PRINTS AN ERRORMESSAGE AND THE REGISTERS WITH THE VALUE OF 

THE CPU-BUS INSTEAD OF THE REGISTERS B,A 



ASCII CHARACTERS 



LF 


EQU 


BA 


CR 


EQU 


0D 


DC1 


EQU 


11 


ESC 


EQU 


IB 


RS 


EQU 


IE 


EXCLAM 


EQU 


21 


AMPERSAND 


EQU 


26 


LOVER. E 


EQU 


65 


LOVER, P 


EQU 


70 


RUBOUT 


EQU 


7F 


BLANK 


EQU 


20 


LOVER. U 


EQU 


75 


QUESTION. M 


EQU 


3F 


PROMPT 


EQU 


2A 


COMMA 


EQU 


2C 


BACK . SLASH 


EQU 


5C 


* 


I/O 


ADDRESSES 


HP, STATUS 


EQU 


4000 


HP. DATA 


EQU 


4031 


MIR4 


EQU 


3C08 


MIR3 


EQU 


3C09 


MIR2 


EQU 


3C0A 


MIR1 


EQU 


3C0B 


MIR0 


EQU 


3C0C 


CPU1 


EQU 


3C0E 


CPU8 


EQU 


3C0F 


CON0 


EQU 


3C13 


CON1 


EQU 


3C12 


MEMPU 


EQU 


3C14 


SSP 


EQU 


3C15 


UAR1 


EQU 


3C10 


UAR0 


EQU 


3C11 


Q.REG 


EQU 


10 


STACK 


EQU 


07F 


RET 


EQU 


2800 (JMP 0) 


* 


EXTERNAL ENTRY POINT 


MONITOR 


EQU 


0E000 



'RETURN' - ADDRESS FOR PUSHX/PULLX 
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MOTOROLA 


ASSEMBLER 07/05/82 08.44.28. SEITE NR 


HWTEST 














379 


* 


VARIABLES 






388 














381 


ACT. MENU 


EQU 


9 


(WORD 


0) 


ADDRESS OF THE ACTUAL MENU 


382 


MAIN. ID 


EQU 


0B 


(WORD 


0) 




383 


SUB. ID 


EQU 


BD 


(WORD 


0) 




384 


C 


EQU 


8 


(BYTE 


0) 


DUMMY REGISTERS, 


385 


X.SAVE 


EQU 


1 


(WORD 


0) 


FOR STRICTLY LOCAL USE ONLY 


386 


ADDR 


EQU 


18 


(WORD 


0) 


USED BY DUMP AND DUMP. LINE 


387 


X.WORD 


EQU 


0F 


(WORD 


0) 


SAVE WORD FOR X, USED BY GET. WORD, 


388 


* 










AND MENU 


389 


CARR 


EQU 


11 


(BYTE 


0) 


'CARRY' -BYTE (RESULT OF GET. WORD) 


390 


CHECK. SUM 


EQU 


17 


(BYTE 


0) 


USED BY READBLOCK (LOAD) 


391 


STAT0 


EQU 


3 


(BYTE 


8) 




392 














393 


MTMP4 


EQU 


4 


(BYTE 


8) 




394 


MTMP3 


EQU 


5 


(BYTE 


0) 




395 


MTMP2 


EQU 


6 


(BYTE 


0) 




396 


MTMP1 


EQU 


7 


(BYTE 


0) 




397 


MTMP0 


EQU 


8 


(BYTE 


0) 




398 














399 


TYPING 


EQU 


16 


(BYTE 


1) 


CONTROLS TYPING ERRORMESSAGES 


400 


PSEUDO.IRQ 


EQU 


21 








481 


XSUM 


EQU 


25 


(BYTE 


0) 


CHECKSUM (MICRO) 


402 


CRNT.ADR 


EQU 


26 


(WORD 


0) 


CURRENT ADR (MICRO, MAIN MEMORY) 


403 














404 


USER, DATA 


SET 


2C 






NEXT FREE LOCATION FOR DATA IN THE 


405 


* 










ZERO-PAGE 


406 


******»*9****»*a**sa###*#***#*#3B*a*a**){(a*$a»;s##**s*#^*a^«t*^* 
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HWTEST 

408 « * 

409 « * 

410 • HARDWARE TEST SUBMONITOR 

411 « » 

412 * AUTHOR JIRKA HOPPE 
413 

414 * INSTITUT OF INFORMATICS 

415 * ETH ZURICH 
416 

417 * VERSION 24.9.80 

418 » * 

419 * 
420 

421 « * 

422 #*#**»*»**»»***«*********#»*******#*»****#*#**- »**#*»*&«***** 

423 USE HWTEST 

424 CODE SET 

425 0800 ORG USER. DATA 

426 * DEFINITION OF VARIABLES 

427 002C 00 00 NEXT. IN. CH WORD POINTS TO THE NEXT ENTRY IN THE CHAIN 

428 002E 00 00 HELP1 WORD IS USED LOCALLY BY TEST PROCEDURES 

429 0030 00 00 HELP2 WORD "NO GLOBAL PROCEDURE MAKES USE OF IT 

430 0032 00 00 HELP3 WORD 

431 0034 00 00 HELP4 WORD 
432 

433 USER. DATA SET « 

434 

435 * ENTRY POINTS USED BY THE MAIN MONITOR 

436 0036 ORG 2003 

437 2003 7E E0 00 JMP MONITOR RETURN TO MAIN MONITOR 

438 2006 7E E0 00 JMP MONITOR RETURN TO MAIN MONITOR 

439 2009 7E E0 00 JMP MONITOR 

440 280C 7E 21 92 JMP HWTEST 

441 200F 7E E0 00 JMP MONITOR DUMMY FOR MICRO MEMORY 

442 2012 7E 20 12 JUMP JMP JUMP USED BY CHAIN FOR JUMP TO THE ROUTINE ENTRY 
443 

444 *****»*#»«****»**ft*«*lK****S«**)|i*««**«««$&»»»SS*»«)K«9«9$J«$a 
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HWTEST 

446 2015 BEGIN HARDWARE TEST 

447 DEF HWTEST, ENDTEST, CHAIN, WRITELN. A, SET, MAIN. ID 

448 DEF X. L. ROTATE, X.R. ROT ATE 

449 DEF NEXTCHAIN 

450 USE SELFTEST.STOR. PORT, ALU, MICROCTRL 

451 USE UC. CHAIN, MC.CH.LEN, ALU. CHAIN, ALU, CH3.LEN 

453 

454 * MAIN HARDWARE TEST MONITOR 

455 « 

457 « 

458 * THIS PROCEDURE ALLOWS CHAINING OF A NUMBER OF HARDWARE TESTS 
459 

460 * A CHAIN HAS FOLLOWING FORMAT: 

461 » #ITEMS ! ENTRY. ADR X. VALUE " 
462 

463 * #ITEMS - HOW MANY PAIRS (ENTRYADR, VALUE) ARE CONTAINED IN THE CHAIN 

464 * ENTRY. ADR - ENTRY POINT OF THE SUBROUTINE 

465 * X. VALUE - INITIAL VALUE FOR THE X REGISTER 
466 

467 * PROCEDURE CHAIN(X ; tCHAINS); 

468 » VAR COUNT, SAVEX : SAVES; 

469 * BEGIN COUNT := Xt; INC(X); 

470 « REPEAT JUMP := Xt; INC(X,2); SAVEX := X; 

471 * X := Xt; CALL(JUMP); 

472 » X := SAVEX; INX(X,2); 

473 » DEC(COUNT) ; 

474 « 

475 * 

476 » 

477 2015 A6 00 CHAIN 

478 2017 36 

479 2018 08 

480 2019 A6 00 CHLOOP 

481 201B B7 20 13 

482 201E A6 01 

483 2020 B7 20 14 

484 2023 08 

485 2024 08 

486 2025 DF 2C 

487 2027 EE 00 

488 2029 BD 20 12 

489 202C BD C0 46 

490 202F DE 2C 

491 2031 08 

492 2032 88 

493 2033 32 

494 2034 4A 

495 2035 36 
495 2036 26 El 

497 2038 32 

498 2039 39 
499 

501 



UNTIL COUNT 


= 




END; 






LDAA 


0,X 




PSH 


A 


SAVE COUNT 


INX 






P LDAA 


0,X 


GET ENTRY POINT 


STAA 


JUMP+1 




LDAA 


i,x 




STAA 


JUMP+2 




INX 






INX 






STX 


NEXT. IN. CH 


LDX 


0,X 


GET INITIAL X VALUE 


JSR 


JUMP 


EXECUTE ROUTINE 


JSR 


BREAK 


GET OUT BY 'ESC 


LDX 


NEXT. IN 


CH 


INX 






INX 






PUL 


A 


GET COUNTER 


DEC 


A 




PSH 


A 


SAVE IT AGAIN 


BNE 


CHLOOP 




PUL 


A 


JUST CLEAN UP STACK 


RTS 
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HWTEST HARDWARE 

582 * PROCEDURE NEXTCHAIN( X : t CHAIN); 

533 (« THIS PROCEDURE SWITCHES TO THE NEXT CHAIN POINTED BY X ») 

504 * 

505 203A DF 2C NEXTCHAIN STX NEXT. IN. CH 

506 203C 39 RTS 
507 

508 »*********#********#*********#***#**#*#**»******«*«#«■*«**«*.# 

509 

510 « PROCEDURE LOOP.CHAIN( X : tCHAINS); 

511 * BEGIN LOOP CHAIN(X.WORD) END END; 

512 » 

513 203D CE 22 62 LOOPCHAIN LDX =GLOB. CHAIN 

514 2840 8D D3 BSR CHAIN 

515 2042 20 F9 BRA LOOPCHAIN 
516 

517 ****»**«*********»*****«******************#*«*»«*****##****« 

518 * 

519 « PROCEDURE LOOPROUTINE( X ); 

520 * BEGIN LOOP CALL(Xt) END END; 

521 * 

522 2844 DE 8F LOOP.RTNE LDX X.WORD 

523 2846 AD 88 JSR 0,X 

524 2848 20 FA BRA LOOP.RTNE 
525 

527 « 

528 » PROCEDURE SET. MAIN. ID( X : tCHAINS); 

529 * BEGIN MAIN. ID := X END 
538 284A DF 8B SETMAINID STX MAIN. ID 
531 204C 39 RTS 

532 

533 ****«**************«**«****#*************«*»«»:***»**«***»«»» 

534 « 

535 « PROCEDURE END. TEST; 

536 * BEGIN WRITE('END OF '.SUB.ID) END; 
537 

538 204D 36 END. TEST PSH A 

539 204E 96 16 LDAA TYPING TYPE CTRL 

540 2050 27 12 BEQ END. END NO TYPING AT ALL 

541 2052 81 02 CMPA =2 

542 2054 27 BE BEQ END. END ONLY ERROR MESSAGES 

543 2056 CE 28 69 LDX -END.TEXT 

544 2859 BD C8 6A , JSR W. STRING 

545 205C DE 0D LDX SUB.ID 

546 205E BD C0 6A JSR W. STRING 

547 2861 BD C8 78 JSR W.CRLF 

548 2064 32 END. END PUL A 

549 2065 BD C2 90 JSR RESET 

550 2068 39 RTS 
551 

552 2069 45 4E 44 END. TEXT BYTE 'END OF' ,8 

206C 20 4F 46 

206F 20 08 
553 

555 » 

556 • PROCEDURE PRINTAB( A, B, X) 



N 


EL 
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HWTEST 




HARDWARE 








557 










« 


BEGIN WRITE(X1 


, A, B) END; 


558 










* 








559 


2071 


36 






PRINT. AB 


PSH 


A 


560 


2072 


BD 


C0 


6A 






JSR 


W. STRING 


561 


2075 


BD 


C0 


62 






JSR 


W.l. BLANK 


562 


2078 


BD 


C0 


C9 






JSR 


OUT. BYTE 


563 


207B 


BD 


CO 


62 






JSR 


W.l. BLANK 


564 


207E 


17 










TBA 




565 


207F 


BD 


C0 


C9 






JSR 


OUT. BYTE 


566 


2082 


BD 


C0 


78 






JSR 


W.CRLF 


567 


2085 


32 










PUL 


A 


568 


2086 


39 










RTS 




569 










* 








570 










********#****««***********«************>!t**#**«ifts;**»«s:«£«aa** 


571 










* 


PROCED 


URE WRITELN(A); 


572 










* 


BEGIN VRITE(A) 


; CRLF END; 


573 










* 








574 


2087 


BD 


C0 


eg 


WRITELN.A 


JSR OUTBYTE 


575 


208A 


7E 


C0 


78 






JMP 


W.CRLF MAKES RTS 


576 










* 








577 










*********#***#s*****«**************##**;aa*ffi****«iS«>:rs««aa**Mt 


578 










* 








579 










« 


ROTATE 


X REGISTER ONE BIT TO LEFT 


580 










* 








581 


208D 


36 






X 


LROTATE 


PSH 


A 


582 


208E 


37 










PSH 


B 


583 


208F 


DF 


01 








STX 


X.SAVE 


584 


2091 


96 


01 








LDAA 


X.SAVE HIGH BYTE 


585 


2093 


48 










ASL 


A CARRY <- MSB; LSB <- 


586 


2094 


D6 


02 








LDAB 


XSAVE+1 LOWER BYTE; DOESN'T CHANGE CARRY 


587 


2096 


2A 


01 








BPL 


X.L.I 


588 


2098 


4C 










INC 


A SET LSB OF 'A' IF MSB OF 'B' WAS SET 


589 










* 






CARRY IS NOT CHANGED 


590 


2099 


59 






X 


L.l 


ROL 


B CARRY FROM 'ASL A' 


591 


209A 


97 


01 








STAA 


X.SAVE 


592 


209C 


D7 


02 








STAB 


XSAVE+1 


593 


209E 


DE 


01 








LDX 


X.SAVE 


594 


28A0 


33 










PUL 


B 


595 


20A1 


32 










PUL 


A 


596 


20A2 


39 










RTS 




597 










* 








598 










********«#*♦***************#**********##* jJitfUtssKtSMcsS******** 


599 










* 








600 










* 


'ROTATE X REGISTER ONE BIT TO RIGHT 


601 










* 








602 


20A3 


36 






X. 


RROTATE 


PSH 


A 


603 


20A4 


37 










PSH 


B 


604 


20A5 


DF 


01 








STX 


X.SAVE 


605 


20A7 


96 


02 








LDAA 


X.SAVE+1 LOWER 


606 


20A9 


D6 


01 








LDAB 


X.SAVE HIGHER 


607 


20AB 


44 










LSR 


A 


608 


20AC 


56 










ROR 


B 


609 


20AD 


24 


02 








BCC 


X.R.I 


610 


20AF 


8A 


80 








ORAA 


=80 SET MSB 


611 


20B1 


97 02 




X. 


R.l 


STAA 


X.SAVE+1 


612 


20B3 


D7 


81 








STAB 


X.SAVE 


613 


20B5 


DE 


01 








LDX 


X.SAVE 



NEL 
HWTEST 



HARDWARE 
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614 20B7 

615 20B8 

616 20B9 
617 

618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 

635 28BA 

636 20BD 

637 20BF 

638 20C2 

639 20C5 

640 20C7 

641 28CA 

642 20CD 

643 20D0 

644 20D2 

645 28D4 

646 2BD7 

647 20DA 

648 20DC 

649 20DF 

650 20E2 

651 20E3 

652 20E5 

653 20E8 

654 20E9 

655 20EB 

656 20EE 

657 20F1 
658 

659 20F2 
20F5 
20F8 

660 

661 

662 

663 

664 

665 

666 

667 

668 



33 
32 
39 



CE 20 F2 
OF 0D 
CE C2 A5 
BD CI ID 
86 FD 
B7 3C 0C 
BD CI 58 
CE 00 01 
C6 02 
86 10 
FF 3C 0E 
BC 3C 0E 
27 03 
BD El AA 
BD 20 8D 
4A 

26 EF 
CE FF FE 
5A 

26 E7 
BD CI 5F 
BD 20 4D 
39 

43 50 55 
20 42 55 
53 00 



PUL B 
PUL A 
RTS 

« 

• 

« PROCEDURE TESTBUS; 

(» TEST FOR SHORT CONNECTION ON THE BUS «) 
BEGIN SUB. ID := 'CPU BUS'; 

MIR := (1 - OR ZA - PANEL); 

X := 1; 

FOR B := 2 TO BY -1 
FOR A := 16 TO BY -1 DO 
BUS := X; 

IF BUS <> X THEN PRINTBUS(X) END; 
X.L ROTATE; 
END; 

X := 8FFFEH; 
* END; 
END; 

* 

TESTBUS LDX 

STX 

LDX 

JSR 

LDAA 

STAA 

JSR 

LDX 

LDAB 
FORBUS1 LDAA 
F0RBUS2 STX 

CPX 

BEQ 

JSR 
TSTBS1 JSR 

DEC 

BNE 

LDX 

DEC 

BNE 

JSR 

JSR 

RTS 

BUSTEXT BYTE 



JUST DEFINE ANY MIR 



SOURCE := PANEL 



ROTATING 1 



=BUSTEXT 

SUB. ID 

=READ.R 

LDMIR 

=0FD 

MIR0 

EDMIR 

=1 

=2 

=16Z 

CPU1 

CPU1 

TSTBS1 

PRINTBUS 

X.L. ROTATE 

A 

F0RBUS2 

=0FFFE ROTATING 

B 

FORBUS1 

EPMIR 

END. TEST 



'CPU BUS',0 



* 

* PROCEDURE CLOCK; 

(« TEST VARIOUS CONTROL OF CPU CLOCK *) 
BEGIN RESET; R.CH(A); 
CASE A OF 

• '0': I 
•V: MIR := READ. REG; 



NEL 












MOTOROLA ASSEMBLER 67/85/82 




HWTEST 




HARDWARE 






669 








* 




REPEAT SINGLE STEP; 


678 








* 




UNTIL BREAK 


671 








* 


ELSE MIR := 


READ. REG; START RUNNIG CLOCK; R.CH 


672 








* 


END; 




673 








* 


RESET; 




674 








a 


END CLOCK 




675 








* 






676 


28FA 


BD 


C2 90 


CLOCK JSR 


RESET 


677 


20FD 


96 


18 




LDAA 


X.WORD+1 


678 


20FF 


4D 






TST 


A 


679 


2180 


27 


ID 




BEQ 


CLEND NO CLOCK - DO NOTHING 


680 


2102 


CE 


C2 A5 




LDX 


=READ.R JUST DEFINE ANY MIR 


681 


2105 


BD 


CI ID 




JSR 


LDMIR 


682 


2108 


BD 


CI 58 




JSR 


EDMIR 


683 


210B 


81 


01 




CMPA 


=1 


684 


210D 


26 0A 




BNE 


CL1 


685 


210F 


B7 


3C 15 


CLLOOP STAA 


SSP SINGLE STEP 


686 


2112 


BD 


C0 46 




JSR 


BREAK 


687 


2115 


27 


F8 




BEQ 


CLLOOP 


688 


2117 


29 


86 




BRA 


CLEND 


689 


2119 


BD 


CI 66 


CL1 JSR 


START START RUNNING CLOCK 


690 


211C 


BD 


C0 24 




JSR 


R.CH WAIT ANY KEY 


691 


211F 


BD 


C2 98 


CLEND JSR 


RESET 


692 


2122 


39 






RTS 




693 








« 






694 








*##****&:*****»*»** »*****#«*#***SK«**K*ft***«$$*$# $#$«« 


695 








at 






696 








* 


PROCEDURE MANUAL 


.CHECK; 


697 








* 


(« ALLOWS MANUAL SETTING OF MICROINSTRUCTIONS, 


698 








* 


CPU-BUS AND CLOCK CONTROL 


699 








» 


=> CPU-BUS 


IS ADDITIONALLY CONTROLLED BY THE 


700 








* 


BUS SOURCE 


FIELD OF A MICROINSTRUCTION *) 


701 








* 


BEGIN EDMIR; 




702 








* 


LOOP 




703 








* 


WRITELN(CPUBUS, ' ',UAR); 


704 








* 


READ(A) 




705 








* 


CASE A OF 




706 








* 


T: FOR E 


:= 4 TO 8 BY -1 DO 


707 








« 


MIR[I] := IN. BYTE; EDMIR 


7B8 








* 


'B' 


CPU. BUS := HEX. IN 


709 








« 


'G' 


START 


RUNNING CLOCK 


710 








* 


'H' 


HALT 


RUNNIG CLOCK 


711 








* 


CR 


RESET 


; EXIT 


712 








* 


ELSE ONE SINGLE STEP 


713 








« 


END; 




714 








* 


WRITE(' ') 




715 








* 


END 




716 








* 


END 




717 








* 






718 


2123 


BD 


CI 58 


MANUALCHK JSR 


EDMIR 


719 


2126 


FE 


3C 0E 


M. 


LOOP LDX 


CPU1 


720 


2129 


BD 


C2 87 




JSR 


PRINTX 


721 


212C 


BD 


C0 62 




JSR 


W.l. BLANK 


722 


212F 


B6 


3C 10 




LDAA 


UAR1 


723 


2132 


84 


0F 




ANDA 


=0F MASK OFF NOT USED BITS 


724 


2134 


BD 


C8 C9 




JSR 


OUT. BYTE 


725 


2137 


B6 


3C 11 




LM 


A 


UAR8 



.44.28. SEITE NR 15 



NEL 
HWTEST 



HARDWARE 
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726 213A 

727 213D 

728 2140 

729 2143 

730 2145 

731 2147 

732 2149 

733 214C 

734 214F 

735 2151 

736 2152 

737 2155 

738 2156 

739 2158 

740 215B 

741 215D 

742 215F 

743 2161 

744 2164 

745 2167 

746 2169 

747 216B 

748 216D 

749 2170 

750 2172 

751 2174 

752 2176 

753 2179 

754 217B 

755 217D 

756 217F 

757 2182 

758 2183 

759 2186 

760 2189 
761 

762 
763 
764 
765 
766 

757 218B 

768 218E 

769 2191 
770 

771 
772 
773 
774 
775 
776 
777 

778 2192 

779 2195 

780 2197 

781 2 19 A 

782 219D 



BD C0 C9 
BD C0 78 
BD C0 24 
81 49 
26 16 
C6 05 
CE 3C 08 
BD C0 BC 
A7 00 
08 

BD C0 62 
5A 

26 F4 
BD CI 58 
20 C9 
81 42 
26 08 
CE 3C 0E 
BD C0 D8 
20 BD 
81 47 
26 05 
BD CI 66 
20 B4 
81 48 
26 05 
BD CI 6D 
20 AB 
81 0D 
26 04 
BD C2 90 
39 

B7 3C 15 
BD C0 62 
20 9B 



BD E2 D5 

BD CI 66 
39 



CE 21 A0 
DF 0B 

BD C2 90 

CE 21 A7 

7E C3 91 



JSR 

JSR 

JSR 

CMPA 

BNE 

I. LABEL LDAB 
LDX 

I. LOOP JSR 
STAA 
INX 
JSR 
DEC 
BNE 
JSR 
BRA 

B. LABEL CMPA 
BNE 
LDX 
JSR 
BRA 

G. LABEL CMPA 
BNE 
JSR 
BRA 

H. LABEL CMPA 
BNE 
JSR 
BRA 

CR. LABEL CMPA 
BNE 
JSR 
RTS 

ELSE. LAB STAA 
JSR 
BRA 



SPECIFY MICROINSTRUCTION 



OUT. BYTE 
W.CRLF 
R.CH 
= 'I' 
B. LABEL 
=5 

=MIR4 
IN. BYTE 
0,X 

W.l. BLANK 

B 

I. LOOP 

EDMIR 

M.LOOP 

= 'B' 

G. LABEL 

=CPU1 

IN. WORD 

M.LOOP 

= 'G' 

H. LABEL 

START 

M.LOOP 

= 'H' 

CR. LABEL 

STOP 

M.LOOP 

=CR 

ELSE. LAB 

RESET 



SSP SINGLE STEP 

W.l. BLANK 

M.LOOP 



SPECIFY THE BUS CONTENT 



START RUNNING CLOCK 



HALT RUNNING CLOCK 



*****#«#*«****«**«*****************«****:«:$*#**' 

» PROCEDURE GO; 

BEGIN SETUPC(X.WORD); START END GO; 



GO 



JSR 
JSR 
RTS 



SETUPC TAKES THE PARAMETER FROM X.WORD 
START 



********&#*****#* *******************«*#*««*«*«$?!(****$ #»«*** 

* 

ENTRY TO THE HARDWARE MONITOR 

* 

S *********«*#*****#»*#***#** a ******** ******S*SS£i #**«*****$**#* 

» 

HWTEST LDX =HW.TEXT 

STX MAIN, ID 

JSR RESET 

LDX =HW.MENU 

JMP COMMANDS 
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HWTEST HARDWARE 

783 * 

HWTEXT BYTE 'HWTEST' ,0 

HW.MENU BYTE 0C 

BYTE 'X EXECUTE CHAIN', 



785 








786 


21A8 


48 


57 54 




21A3 


45 


53 54 




21A6 


80 




787 


21A7 


0C 




788 


21A8 


58 


20 45 




21AB 


58 


45 43 




21AE 


55 


54 45 




21B1 


20 


43 48 




21B4 


41 


49 4E 




21B7 


88 




789 


21B8 


28 


3D 


790 


21BA 


4C 


20 4C 




21BD 


4F 


4F 50 




21C8 


28 


52 4F 




21C3 


55 


54 49 




21C6 


4E 


45 00 


791 


21C9 


20 


44 


792 


21CB 


54 


20 54 




21CE 


45 


53 54 




21D1 


20 


42 55 




2104 


53 


08 


793 


21D6 


20 


BA 


794 


21D8 


4E 


20 58 




21DB 


41 


4E 45 




21DE 


4C 


20 53 




21E1 


45 


4C 46 




21E4 


08 




795 


21E5 


22 


87 


796 


21E7 


4F 


28 43 




21EA 


4C 


4F 43 




21ED 


4B 


20 20 




21F0 


4E 


4F 07 




21F3 


53 


49 4E 




21F6 


47 


4C 45 




21F9 


87 


52 55 




21FC 


4E 


4E 49 




21FF 


4E 


47 00 


797 


2202 


20 


FA 


798 


2204 


48 


20 44 




2207 


4F 20 42 




228A 


59 


20 48 




2280 


41 


4E 44 




2210 


88 




799 


2211 


21 


23 


800 


2213 


47 


20 47 




2216 


4F 


00 


801 


2218 


21 


8B 


802 


221 A 


55 


20 75 




221D 


43 


54 52 




2220 


4C 


00 


803 


2222 


25 


40 


884 


2224 


50 20 43 




2227 


50 


55 60 


885 


222A 


2B 


FA 



WORD LOOPCHAIN 

BYTE 'L LOOP ROUTINE', 



WORD LOOP.RTNE 
BYTE 'T TEST BUS ',8 



WORD TESTBUS 

BYTE 'N PANEL SELF',0 



WORD SELFTEST. 

BYTE '0 CLOCK NO%SINGLE%RUNNING ' ,8 



WORD CLOCK 

BYTE 'H DO BY HAND',0 



WORD MANUALCHK 
BYTE 'GGO',0 

'■■ 
WORD GO 



BYTE 'U ',75, 'CTRL ',0 



WORD MICROCTRL 
BYTE 'P CPU',0 

WORD ALU 



NEL 
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HWTEST 




HARDWARE 






806 


222C 


53 


20 


53 




BYTE 


'S STORE S PORT',0 




222F 


54 


4F 


52 










2232 


45 


20 


08 










2235 


20 


50 


4F 










2238 


52 


54 


00 








807 


223B 


2E 


58 






WORD 


STOR.PORT 


808 


223D 


52 


20 


52 




BYTE 


'R READ REGISTER', 




2240 


45 


41 


44 










2243 


20 


52 


45 










2246 


47 


49 


53 










2249 


54 


45 


52 










224C 


00 












809 


224D 


22 


73 






WORD 


RDREG 


810 


224F 


57 


20 


57 




BYTE 


'V WRITE REGISTER ',0 




2252 


52 


49 


54 










2255 


45 


20 


52 










2258 


45 


47 


49 










225B 


53 


54 


45 










225E 


52 


88 










811 


2260 


22 


7C 






WORD 


WRREG 


812 










* 






813 


2262 


IB 






GLOB. CHAIN BYTE 


GL . CH . LEN+MC . CH . LEN+ 1+ ALU , CH0 


814 


2263 
2266 


20 
A0 


4A 


21 




WORD 


SET.MAIN.ID.HWTEXT 


815 


2267 
226A 


22 
00 


87 


00 




WORD 


SELFTEST.0 


816 


226B 
226E 


28 


BA 


00 




WORD 


TESTBUS,0 


81? 


226F 
2272 


28 
C6 


3A 


25 




WORD 


NEXTCHAIN.UC. CHAIN- 1 


818 










GL.CH 


LEN EQU 


•-1-GLOB. CHAIN/4 


819 










**************** 


£********«»««***********«******«* 


820 


2273 


D6 


10 




RDREG 


LDAB 


X.WORD+1 


821 


2275 


BD 


C2 


DD 




JSR 


READREG 


822 


2278 


BD 


C2 


87 




JSR 


PRINTX 


823 


227B 


39 








RTS 




824 










*«*#*$**««****$# ******x***************#«*$* 


825 


227C 


D6 


10 




VRREG 


LDAB 


X.WORD+1 


826 


227E 


BD 


C2 


FE 




JSR 


GETWORD 


827 


2281 


DE 


0F 






LDX 


X.WORD 


828 


2283 


BD 


C2 


AA 




JSR 


LOAD. REG 


829 


2286 


39 








RTS 




830 










**«*************«************S**************X**£* 


831 










* 






832 


2287 










END 


HARDWARE 



NEL 
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HWTEST 














834 










*$**** #**#*********#**#****** IS »**«*****&*###*-#* 


835 










* 






836 










* 


PANEL SELFTEST PROGRAM 


837 










* 






838 










c 


AUTHOR JIRKA HOPPE 


839 










* 


VERSION 


1. 10. 1979 


840 










« 






841 










#****#i!:&*S;»a;«***«**«*#**!l(******»#**##*****:«**W* 


842 


2287 










BEGIN SE 


LFTEST 


843 












USE 


END. TEST 


844 












DEF 


SELFTEST 


845 










***«***S*S«***4^SS**tt****:|^****)|t*tt#s*«#«#?#8tt£tt 


846 










* 


ENABLE DIAGNOSTIC MIR AND TEST ALL POSIBLE PATTERNS 


847 










* 






848 










a 


PROCEDURE TEST 


MIR 


849 










* 


BEGIN SUB. ID 


:- 'MIR.TST'; EDMIR; 


858 










* 


FOR I ;= 4 


TO STEP -1 DO 


851 










* 


FOR A := 


TO 255 DO 


852 










* 


MIR[I] :» 


A; 


853 










* 


IF MIR[I] 


<> A THEN S.W.I(MIR[I],A) END; 


854 










* 


END 




855 










« 


END TEST. MIR 




856 










* 






857 


2287 


CE 


22 


CB 


SELFTEST LDX 


=MIR.TEXT 


858 


228A 


OF 


0D 






STX 


SUB. ID 


859 


228C 


BD 


CI 


58 




JSR 


EDMIR 


868 


228F 


CE 


3C 


08 




LDX 


=MIR4 


861 


2292 


4F 






LI 


CLR 


A 


862 


2293 


A7 


06 




L2 


STAA 


0,X LOOP ALL COMBINATIONS 


863 


2295 


Al 


00 






CMPA 


0,X 


864 


2297 


27 


03 






BEQ 


L4 


865 


2299 


E6 


63 






LDAB 


8,X 


866 


229B 


3F 








SWI 


B-ACTUAL; A=EXPECTED; X=ADR OF MIR «» 


857 
















868 


229C 


4C 






L4 


INC 


A 


869 


229D 


26 


F4 






BNE 


L2 


870 


229F 


08 








INX 




871 


22A0 


8C 


3C 


0D 




CPX 


=MIR8+1 LAST MIR + 1 


872 


22A3 


26 


ED 






BNE 


LI 


873 










* 






874 










* * * «. #*»*$*****«*ft«s**x*****$*»****tt#a»* %-#&#<* 


875 










* 






876 










* 


PROCEDURE TEST. 


U.ADR 


877 










* 


BEGIN SUB. ID 


:= 'UADR.TST'; D2911; 


878 










# 


FOR X := 


TO 0FFFH DO 


879 










* 


UAR := X; 




880 










* 


IF UAR <> 


X THEN S.W.I(UAR,X) END 


881 










* 


END 




882 










* 


END TEST. U. ADR; 


883 










* 






884 


22A5 


CE 


22 


D0 




LDX 


=UAR.TXT 


885 


22A8 


DF 


BD 






STX 


SUB. ID 


886 


22AA 


BD 


CI 


3E 




JSR 


D2911 DISABLE 2911 ADR OUTPUT; ENABLE PANEL 


887 


22AD 


CE 


00 


60 




LDX 


=8 


888 


22B0 


FF 


3C 


10 


L5 


STX 


UAR1 


889 


22B3 


BC 


3C 


10 




CPX 


UAR1 



19 



NEL 








HWTEST 




SELFT 


890 


22B6 


27 


07 


891 


22B8 


F6 


3C 10 


892 


22B8 


B6 


3C 11 


893 


22BE 


3F 




894 


22BF 


08 




895 


22C8 


8C 


10 00 


896 


22C3 


26 


EB 


897 


22C5 


7E 


20 4D 


898 








899 


22C8 


4D 


49 52 




22CB 


2E 


54 53 




22CE 


54 


00 


908 


22D0 


55 


41 52 




22D3 


2E 


54 53 




22D6 


54 


00 


901 


22D8 







L6 



BEQ 


L6 


LDAB 


UAR1 


LDAA 


UAR0 


SWI 




INX 




CPX 


=1008 


BNE 


L5 


JMP 


END. TEST 



MOTOROLA ASSEMBLER 07/05/82 03.44.28. SEITE NR 28 



(B,A)=ACTUAL; X=EXPECTED 



MIR. TEXT BYTE 'MIR.TST',0 
UAR.TXT BYTE 'UAR.TST',0 
END SELFTEST 



NEL 
HWTEST 



MOTOROLA ASSEMBLER 07/05/82 08.44,28, SEITE NR 21 



903 22D8 

904 

905 

906 

907 

988 

909 

918 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 22D8 

22DB 
922 
923 22DD 

22E0 
924 
925 22E2 

22E5 
926 
927 22E7 

22EA 
928 
929 22EC 

22EF 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 

942 22F1 

943 22F4 

944 22F6 

945 22F9 

946 22FC 

947 22FF 

948 2302 

949 2305 
958 2308 
951 

952 238A 

953 230D 



00 08 07 
28 0F 

2F 88 04 
60 0F 

0F 80 87 
60 03 

00 08 03 
28 8F 

00 88 01 
20 0F 



BEGIN MICROCTRL 

* 

MICRO CONTROLLER TEST PROGRAMS 

* 

» AUTHOR IMMO NOACK / RICHARD OHRAN 

« MODIFICATION JIRKA HOPPE 

* 

* VERSION 23.9.88 

* 

DEF MICROCTRL, UCCHAIN.MC.CH.LEN 

USE END , TEST , CHAIN , SET . MAIN . ID , WRITELN , A 

USE NEXTCHAIN , ALU , CHAIN , X . L , ROTATE , X . R . ROTATE 

A**************************************** St *a»i*s*S ****#«* 

* DST FCT SRC C A B SH PC S E SC DST SRC 
* JMP. MIR 8 T JMP 

JMP. MIR BYTE 88,08,07,20,0F 



-CONTINUE 1 - OR DZ 8 8 8 - 
CONTINUE BYTE 2F,88,e4,68,8F 

•JMPMAP 1 Q OR DZ 8 - - - JMP 
JMPMAP BYTE 0F, 80, 07, 60, 03 

•JSR.MIR 8 T JSR 

JSR.MIR BYTE 00, 88, 03, 20, 0F 



8 ALU IR4 



CE 23 2D 
DF 0D 
CE 22 D8 
BD CI ID 
CE 88 80 
BD CI 58 
B7 3C 15 
BC 3C 10 
27 07 

F6 3C 18 
B6 3C 11 



•RTN.MIR 8 T RTN 

RTN.MIR BYTE 00, 08, 01, 20, 8F MUST IMMEDIATELLY FOLLOW JSR.MIR 

* 

* PROCEDURE JMPOP; 

* (» TESTING JUMP OPERATIONS «) 

* BEGIN SUB. ID := 'JUMP'; 

LDMIR (JMP, MIR); 
FOR I := TO 4K DO 

MIR. ADR := I; SINGLE STEP; 

IF UAR # I THEN S V I END 

* END 

« ,, END JMPOP; 

• 

JMPOP LDX 

STX 

LDX 

JSR 

LDX 

JSR 
JMP . FOR STAA 

CPX 

BEQ 

LDAB 
LDAA 



=JUMPS 

SUB, ID 

= JMP. MIR 

LDMIR 

=0 

EDMIR 

SSP SINGLE STEP 

UAR1 

JMP. OK 

UAR1 
UAR0 



NEL MOTOROLA ASSEMBLER 87/85/82 08.44.28. SEITE NR 22 

HWTEST MICROCTRL 

954 2310 3F SWI (B,A)=ACTUAL; X=DESIRED«********»«* 
955 

956 2311 B6 3C 89 JMP.OK LDAA MIR3 MIR. ADR := MIR. ADR + 1 

957 2314 8B 18 ADDA =18 POSITION OF '1' ON THE MIR. ADR 

958 2316 B7 3C 89 STAA MIR3 

959 2319 24 83 BCC JMP.N.C CARRY IS SET FROM THE ADDITION 
950 23 IB 7C 3C 88 INC MIR4 

961 231E 08 JMP.N.C INX 

962 23 IF 8C 10 00 CPX =1008 

963 2322 26 DE BNE JMP. FOR 

964 2324 CE 00 00 LDX =8 

965 2327 BD CI C2 JSR STUPC LEAVE UAR IN SAFE STATE 

966 232A 7E 20 4D JMP END. TEST 
967 

968 232D 4A 55 4D JUMPS BYTE 'JUMP',0 
2330 50 00 

969 * 

971 * 

972 » PROCEDURE JSR.RTN; 

973 « ("TESTING STACK OPERATION*) 

974 » (« PUSH & POP ALL POSSIBLE ADDRESSES «) 

975 « BEGIN 

976 * FOR I = TO 4K DO 

977 « STUPC(I); 

978 * MIR := (0 T JSR); SINGLE STEP; 

979 « MIR := (0 T RTN); 
988 * IF UAR # I THEN ERROR 
981 * END 

982 
983 
984 

985 2332 CE 23 6B PUSH. POP LDX =PU.PO 

986 2335 DF 0D STX SUB. ID 

987 2337 CE 00 00 LDX =0 

988 233A BD CI 58 JSR EDMIR 

989 233D BD CI C2 MC5 JSR STUPC 

998 2348 86 83 LDAA =03 MIR :- JSR 

991 2342 B7 3C 0A STAA MIR2 

992 2345 B7 3C 15 STAA SSP SINGLE STEP 

993 2348 86 01 LDAA =01 MIR := RTN 

994 234A B7 3C 0A STAA MIR2 

995 234D 08 INX 

996 234E BC 3C 10 CPX UAR1 

997 2351 27 07 BEQ MC4 

998 2353 F6 3C 10 LDAB UAR1 

999 2356 B6 3C 11 LDAA UAR8 

1000 2359 3F SWI (B,A)=ACTUAL; X DESIRED .««««««««««»• 
1001 

1002 235A B7 3C 15 MC4 STAA SSP SINGLE STEP 

1803 235D 8C 0F FF CPX =0FFF 

1004 2368 26 DB BNE MC5 

1885 2362 CE 88 00 LDX =8 

1885 2365 BD CI C2 JSR STUPC LEAVE UAR IN SAFE STATE 

1087 2368 7E 28 4D JMP END. TEST 

1008 236B 50 53 48 PU.PO BYTE 'PSH/POP',0 

236E 2F 58 4F 



NEL MOTOROLA ASSEMBLER 87/05/82 68.44.23. SEITE NR 23 

HWTEST MICROCTRL 

2371 50 00 

ieeg 



1011 










« PROCEDURE STACKDPTH; 




1012 










* 


(•TESTING 


STACK OPERATIONS 




1913 










* 


TEST DEPTH OF STACK BY 




1014 










» 


PUSHING 


OPERANDS*) 




1015 










» 


BEGIN 






1016 










a 


HELP2:=111H; 




1017 










ft 


FOR I:= 


1 TO STACKDEPTH DO 




1018 










ft 


SETUPC(HELP2) ; LEFTR0TATE(HELP2) ; 




1019 










s 


MIR : = 


(8 T JSR); SINGLE STEP 




1020 










ft 


END; 






1021 










ft 


HELP2 := 


888H; 




1022 










ft 


FOR I:- 


STACKDEPTH TO 1 BY -1 DO 




1023 










* 


MIR :- 


(8 T RTN); 




1024 










* 


IF UAR 


# HELP2 THEN S W I END; 




1025 










» 


SINGLE 


STEP; 




1026 










» 


RIGHTR0TATE(HELP2) 




1027 










ft 


END; 






1028 










ft 


END STACKDPTH; 




1029 










ft 








1030 










STACKDEP EQU 


4 




1831 










* 








1032 


2373 


CE 


23 B7 


STACKDPTH LDX 


=STACK 




1033 


2376 


DF 


0D 






STX 


SUB. ID 




1834 


2378 


CE 


01 


11 




LDX 


=111 




1035 


237B 


C6 


04 






LDAB 


-STACKDEP. 




1036 


237D 


BD 


CI 


58 




JSR 


EDMIR 




1037 


2380 


DF 


30 




MC11 


STX 


HELP2 




1038 


2382 


09 








DEX 


JSR STORES 


UADR+1; 


1039 


2383 


BD 


CI 


C2 




JSR 


STUPC 




1040 


2386 


CE 


22 


E7 




LDX 


OSR.MIR 




1041 


2389 


BD 


CI 


17 




JSR 


EXX 




1042 


238C 


DE 


30 






LDX 


HELP2 




1043 


238E 


BD 


20 


8D 




JSR 


X.L. ROTATE 




1844 


2391 


5A 








DEC 


B 




1045 


2392 


26 


EC 






BNE 


MC11 




1046 


















1847 


2394 


CE 


22 


EC 




LDX 


=RTN.MIR 




1048 


2397 


BD 


CI 


ID 




JSR 


LDMIR 




1849 


239A 


CE 


08 


88 




LDX 


=888 




1850 


239D 


BC 


3C 


10 


MC7 


CPX 


UAR1 




1851 


23A0 


27 


07 






BEQ 


MC6 




1852 


23A2 


F6 


3C 


10 




LDAB 


UAR1 




1853 


23A5 


B6 


3C 


11 




LDAA 


UAR8 




1854 


23A8 


3F 








SVI 


(B,A)=ACTUAL; X« 


•EXPECTED 


1055 


















1056 


23A9 


B7 


3C 


15 


MC6 


STAA 


SSP 




1057 


23AC 


BD 


20 


A3 




JSR 


X.R. ROTATE 




1058 


23AF 


8C 


80 


88 




CPX 


=8038 




1059 


23B2 


26 


E9 






BNE 


MC7 




1060 


23B4 


7E 


20 


4D 




JMP 


END. TEST 




1061 


















1062 


23B7 
23BA 


44 
54 


45 
48 


50 
00 


STACH 


! BYTE 


'DEPTH', 8 




1063 










* 









******* 



NEL MOTOROLA ASSEMBLER 87/05/82 68.44.28. SEITE NR 24 

HWTEST MICROCTRL 

1054 *******************»**»*********#************#****»*« 

1065 

1066 • PROCEDURE INCPC; 

1867 * (*TEST INCREMENTING OF PC «) 

1868 « BEGIN 
1069 * PC := 

1078 « FOR I :- TO 4095 DO 

1071 * IF I # UAR THEN S V I END; 

1072 * SINGLESTEP; 

1073 * END 

1074 * END INCPC; 
1075 

1076 23BD CE 23 Fl INCPC LDX -INC 

1077 23C0 DF 0D STX SUB. ID 

1078 23C2 CE 00 00 LDX =8 

1079 23C5 BD CI 58 JSR EDMIR 
1088 23C8 BD CI C2 JSR STUPC 
1881 23CB DF 38 STX HELP2 

1082 23CD CE 22 DD LDX =CONTINUE 

1083 23D0 BD CI ID JSR LDMIR 

1084 23D3 DE 30 LDX HELP2 

1085 23D5 08 INX 
1086 

1087 23D6 BC 3C 10 MC9 CPX UAR1 

1088 23D9 27 07 BEQ MC8 

1089 23DB F6 3C 10 LDAB UAR1 

1090 23DE B6 3C 11 LDAA UAR8 

1091 23E1 3F SWI (B,A)=ACTUAL; X-DESIRED »*»*«*«**«« 

1092 23E2 B7 3C 15 MC8 STAA SSP (« SINGLE STEP «) 

1093 23E5 08 INX 

1094 23E6 8C 10 08 CPX =01880 

1095 23E9 26 EB BNE MC9 

1096 23EB B7 3C 15 STAA SSP ROLL UPC TO LEAVE IN SAVE STATE 

1097 23EE 7E 20 4D JMP END. TEST 
1898 

1099 23F1 50 43 2D INC BYTE 'PC-INC',0 
23F4 49 4E 43 

23F7 00 

1100 * 
1101 

1102 mean*****************************************;* 

1103 

1104 « TEST CONSTANT 

1185 * PROCEDURE CONST. TST; 

1106 * BEGIN SUB. ID :=' CONST'; 

1187 • MIR := (1 - OR DZ 10 8); 

1188 * FOR A:=0 TO 255 DO 
1109 » MIR0:= A; 

1116 « IF CPU <> BUS THEN PRINTBUS END; 

1111 » END; 

1112 * END; 
1113 

1114 23F8 CE 24 ID CONST. TST LDX -CONST 

1115 23FB DF 0D STX SUB. ID 

1116 23FD 86 70 LDAA =70 MIR1 ;= CONST DEFINITION 

1117 23FF B7 3C 03 STAA MIR1 

1118 2402 BD CI 58 JSR EDMIR 



NEL 












MOTOROLA ASSEMBLER 07/85/82 08,44.28. J 




HWTEST 




MICROCTRL 






1119 


2485 


CE 


80 


08 




LDX 


=0 


1120 


2408 


4F 








CLR 


A 


1121 


2409 


B7 


3C 


0C 


CONl 


STAA 


MIR0 


1122 


240C 


BC 


3C 0E 




CPX 


CPU1 


1123 


240F 


27 


03 






BEQ 


C0N2 


1124 


2411 


BD 


El 


AA 




JSR 


PRINTBUS (B,A)=ACTUAL; X=DESIRED •»•»««».» 


1125 


2414 


83 






C0N2 


INX 




1126 


2415 


4C 








INC 


A 


1127 


2416 


81 


FF 






CMPA 


=255Z 


1128 


2418 


26 


EF 






BNE 


CONl 


1129 


241 A 


7E 


20 


4D 




JMP 


END. TEST 


1138 










* 






1131 


241D 


43 


4E 


53 


CONST 


BYTE 


'CNST.TEST',8 




2428 


54 


2E 


54 










2423 


45 


53 


54 










2426 


00 












1132 
















1133 










* 






1134 










* #4****** ?! «*«*****«****«*SK$«***«****«*S« ]i(**#S$**#-,#£!ii#K$*#$**iB#! 


1135 










« PROCEDURE BUS SRC.DEST 


1136 










* 


BEGIN 




1137 










* 


MIR1 := 


60H; 


1138 










tt 


MIR0 := 


X.WORD; 


1139 










* 


LOOP 


1148 










* 




R.CH (A); 


1141 










* 




IF A:-'/' THEN INC (MIR0,18H)(IMCREMENT DST); 


1142 










* 




ELSIF A:-V THEN INC (MIRB.l )(INCREMENT SRC); 


1143 










* 




ELSE EXIT; 


1144 










* 




OUT. BYTE (A); 


1145 










* 


END; 


1146 










* 


END; 




1147 










* 






1148 


2427 


96 


10 




B.SRC 


.DST LDAA 


X.VORD+1 


1149 


2429 


B7 


3C 


ec 




STAA 


MIR0 


1150 


242C 


86 


60 






LDAA 


=68H 


1151 


242E 


B7 


3C 


0B 




STAA 


MIR1 


1152 


2431 


BD 


CI 


58 




JSR 


EDMIR 


1153 


2434 


BD 


C0 


24 


READ 


JSR 


R.CH 


1154 


2437 


81 


2F 






CMPA 


= '/' 


1155 


2439 


26 


0A 






BNE 


SRC 


1156 


243B 


FG 


3C 


0C 




LDAB 


MIR8 


1157 


243E 


CB 


18 






ADDB 


=10 


1158 


2440 


F7 


3C 


8C 




STAB 


MIR8 


1159 


2443 


28 


07 






BRA 


NEXT 


1168 


2445 


81 


2C 




SRC 


CMPA 


_ 1 1 


1161 


2447 


26 


BB 






BNE 


EXIT 


1162 


2449 


7C 


3C 


ec 




INC 


MIR8 


1163 


244C 


B6 


3C 


0C 


NEXT 


LDAA 


MIR8 


1164 


244F 


BD 


28 87 




JSR 


WRITELN.A 


1165 


2452 


20 


E8 






BRA 


READ 


1166 


2454 


39 






EXIT 


RTS 




1167 










a 






1168 










**«********»***»*###«*******#* ***##*#*****w**«^* 


1169 










* 






1170 










« BE SURE THAT: 


STACK. EMPTY AND PCB.L LINES ARE HIGH 


1171 










« GROUND ONE REQUEST LINE AND RUN THE PROGRAM 


1172 










* THE 


PROGRAM D 


ISPLAYS THE VALUES OF THE MICRO ADDRESS 



THE CORRECT VALUES ARE 


REQUEST 


MASKS UAR 





00 


TO FF 00F 


1 


60 


FC 00E 


2 


80 


F8 00D 


3 


00 


F0 08C 


4 


60 


E0 00B 


5 


00 


C0 00A 


6 


03 


80 009 


7 


00 


00 008 



NEL MOTOROLA ASSEMBLER 07/85/82 08,44.28. SEITE NR 26 

HWTEST MICROCTRL 

1173 « FOR VARIOUS MASK VALUES 

1174 

1175 

1176 

1177 

1178 

1179 

1180 3 00 F0 08C FOR ALL OTHER MASKS IS UAR>10 

1181 

1182 

1183 

1184 

1185 * 

1186 * PROCEDURE INTERRUPT . TEST 

1187 » BEGIN B :=0; (« B CONTAINS THE CURRENT MASK VALUE *) 

1188 * REPEAT CPU, BUS := B; 

1189 * MIR :- (PANEL -> IRM); SSP; 

1190 * SETUPC(0); 

1191 * PRINT(UAR); PRINT(B); 

1192 • MIR := (IRM -> BUS); PRINT(BUS); CRLF; 

1193 * SHIFT 'B' RO RIGHT WITH MSB SET 

1194 * UNTIL B = 8FFH 

1195 * END INTERRUPT. TEST; 

1196 * 

1197 2455 BD CI 58 INTERPT JSR EDMIR 

1198 2458 5F CLR B 

1199 2459 F7 3C 0E STAB CPU1 THE HIGHER BYTE OF BUS WILL NEVER BE USED 

1200 245C CE C2 A5 INT. REP LDX =READ.R THIS IS TO SET MIR1 TO MIR4 TO A DEFINED STATE ONLY 

1201 245F BD CI ID JSR LDMIR NO OTHER FUNCTION 

1202 2462 F7 3C 8F STAB CPU0 

1203 2465 86 8D LDAA =8D SRC=PANEL; DST-IRM 

1204 2467 B7 3C 0C STAA MIR0 

1205 246A B7 3C 15 STAA SSP SINGLE STEP 

1206 246D CE 22 E2 LDX -JMPMAP 

1207 2470 BD CI ID JSR LDMIR 

1208 2473 CE 3C 10 LDX 4JAR1 

1209 2476 BD C0 E3 JSR OUT. WORD PRINT(UAR)**************** 

1210 2479 BD C0 62 JSR W.l. BLANK 

1211 247C 17 TBA 

1212 247D BD C0 C9 JSR OUT. BYTE PRINT(MASK)««********** 

1213 2480 BD C0 62 JSR W.l. BLANK 

1214 2483 86 F8 LDAA =0F8 SRC=IRM 

1215 2485 B7 3C 0C STAA MIR0 

1216 2488 B6 3C 0F " LDAA CPU0 

1217 248B BD C0 C9 JSR OUT. BYTE READ BACK MASK AND PRINT IT ****** 

1218 248E BD C0 78 JSR W.CRLF 
1219 

1220 2491 0D SEC 

1221 2492 56 ROR B ROTATE B TO RIGHT WITH MSB SET 

1222 2493 24 C7 BCC INT. REP LSB ROLLS OUT TO CARRY 

1223 2495 39 RTS 
1224 

1225 ***t*i*tt************«»*»***«*t***********s******t***** 

1226 

1227 * PROCEDURE MAPPROM; 

1228 * (.COMPARE MAP-PROM TAPE WITH MAP PROM *) 

1229 * (* FORMAT OF THE TAPE 



NEL 












MOTOROLA ASSEMBLER 07/05/82 08.44.28. 




HVTEST 




MICROCTRL 








1230 










« 


GARBAGE 


'S105' INSTR UADR GARBAGE 


1231 










* 


INSTR - 


4 HEX DIGITS = INSTRC0DE*2 + 4000H 


1232 










* 


UADR - 


4 HEX DIGIST *) 


1233 










* 


BEGIN SUB. ID 


:= 'MAP'; 




1234 










* 


INTERRUPT. MASK := 0FFFF; (* TURN OFF INTERRUPT *) 


1235 










* 


SKIP ONE LINE; 




1236 










* 


FOR HELP1 


:= TO 255 DO 


1237 










* 


WMM(HELP1,0); 




1238 










* 


F.REG := 


0; PC. REG : 


= 0; 


1239 










* 


LINEREAD 


; (*STARTS TAPE MOTION*) 


1240 










* 


REPEAT R 


CH(A) UNTIL CH = 'S ! ; (*OVERREAD GARBAGE*) 


1241 










* 


FOR B := 


TO 7 DO R 


.CH(A) END; (*OVERREAD«) 


1242 










* 


HELP2 := 


IN. BYTE * 100H*IN.BYTE; (*MICRO ADR*) 


1243 










« 


REPEAT R 


CH(A) UNTIL CH=CR; (*OVEREAD GARBAGE*) 


1244 










* 


MIR := (1 OR DZ 


JMP - - ALU IR4); (* JMP 


1245 










* 


IF UADR 


(> HELP3 THEN S W I(UADR,HELP3) END 


1246 










* 


END 






1247 










* 


END MAPPROM 






1248 










* 








1249 


2496 


CE 


25 


34 


MAPPROM LDX 


=MAP 




1250 


2499 


DF 


0D 






STX 


SUB. ID 




1251 










* 


TURN OFF INTERRUPT 




1252 


249B 


CE 


C2 


A5 




LDX 


=READ.R 


DEFINE ANY MIR 


1253 


249E 


BD CI 


ID 




JSR 


LDMIR 




1254 


24A1 


86 8D 






LDAA 


=8D 


SRC=PANEL; DST=INTERRUPT MASK 


1255 


24A3 


B7 


3C 


0C 




STAA 


MIR0 




1256 


24A6 


CE 


FF 


FF 




LDX 


=0FFFF 




1257 


24A9 


FF 


3C 


BE 




STX 


CPU1 


BUS := 0FFFF 


1258 


24AC 


BD 


CI 


58 




JSR 


EDMIR 




1259 


24AF 


B7 


3C 


15 




STAA 


SSP 


SINGLE STEP 


1260 


















1261 


24B2 


CE 


00 


00 




LDX 


=0 




1262 


24B5 


DF 


0F 






STX 


X.WORD 


USED AS PARAMETER TO LOAD. PC 


1263 


24B7 


BD 


C0 


FB 




JSR 


LINE. READ 


SKIP FIRST LINE 


1264 


24BA 


BD 


E0 


03 


REP 


MP0 JSR 


READ.CH 




1265 


24BD 


81 


0D 






CMPA 


=CR 




1266 


24BF 


26 


F9 






BNE 


REP.MP0 




1267 


24C1 


CE 


00 


00 




LDX 


=0 




1268 


24C4 


DF 


2E 






STX 


HELP1 




1269 


24C6 


7F 


80 


30 




CLR 


HELP2 


CLR HIGHER BYTE OF HELP2 


1270 


24C9 


BD 


CI 


58 


FORMPRDM JSR 


EDMIR 




1271 


24CC 


D6 2F 






LDAB 


HELP1+1 




1272 


24CE 


96 


2E 






LDAA 


HELP1 




1273 


24D0 


CE 


00 


00 




LDX 


=0 




1274 


24D3 


BD 


C2 


28 




JSR 


WMM 




1275 


















1276 


2406 


CE 


00 


00 




LDX 


=0 




1277 


24D9 


86 


ED 






LDAA 


=0ED 


SRC=PANEL; DST = F.REG 


1278 


24DB 


B7 3C 


0C 




STAA 


MIR8 




1279 


24DE 


B7 


3C 


15 




STAA 


SSP 


F.REG :=0 


1280 


24E1 


86 


2D 






LDAA 


=2D 


SRC=PANEL; DST = PC 


1281 


24E3 


B7 


3C 


0C 




STAA 


MIR0 




1282 


24E6 


B7 


3C 


15 




STAA 


SSP 


PC := 


1283 


24E9 


BD 


C0 FB 




JSR 


LINE. READ 




1284 


24EC 


BD 


E0 03 


REPMP1 JSR 


READ.CH 




1285 


24EF 


81 


53 






CMPA 


= 'S' 




1286 


24F1 


26 


F9 






BNE 


REPMP1 


FIND BEGIN 



NEL 
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HWTEST 




MICROCTRL 








1287 


24F3 


C6 


07 






LDAB 


=7 




1288 


24F5 


BD 


E0 


03 


F0R2MP 


JSR 


READ.CH 


OVERREAD 


1289 


24F8 


5A 








DEC 


B 




1290 


24F9 


26 


FA 






BNE 


F0R2MP 




1291 


24FB 


BD 


E0 


1A 




JSR 


READ. BYTE 




1292 


24FE 


97 


31 






STAA 


HELP2+1 


LOWER BYTE OF MICRO ADR 


1293 


2500 


BD 


E0 


1A 




JSR 


READ. BYTE 




1294 


2503 


97 


30 






STAA 


HELP2 


HIGH BYTE 


1295 


2505 


BD 


E0 


03 


REPMP2 


JSR 


READ.CH 


OVERREAD GARBAGE 


1296 


2508 


81 


0D 






CMPA 


=CR 




1297 


250A 


26 


F9 






BNE 


REPMP2 




1298 


250C 


CE 


22 


E2 




LDX 


=JMPMAP 




1299 


250F 


BD 


CI 


ID 




JSR 


LDMIR 




1308 


2512 


DE 


30 






LDX 


HELP2 


GET DESIRED ADR 


1301 


2514 


BC 


3C 


10 




CPX 


UAR1 




1302 


2517 


27 


0C 






BEQ 


ENDIFMP 




1303 


2519 


96 


2F 






LDAA 


HELP1+1 




1304 


251B 


BD 


20 


87 




JSR 


WRITELN.A 


PRINT(INSTRUCTION)«*******»«* 


1305 


251E 


F6 


3C 


10 




LDAB 


UAR1 




1306 


2521 


B6 


3C 


11 




LDAA 


UAR8 




1307 


2524 


3F 








SWI 


(B,A)=ACTUAL; X=DESIRED*«**» 


1308 


2525 


DE 


2E 




ENDIFMP 


LDX 


HELP1 




1309 


2527 


8C 


00 


FF 




CPX 


=0FF 




1310 


252A 


27 


05 






BEQ 


ENDMP 




1311 


252C 


08 








INX 






1312 


252D 


DF 


2E 






STX 


HELP1 




1313 


252F 


20 


98 






BRA 


FORMPROM 




1314 


















1315 


2531 


7E 


20 


4D 


ENDMP 


JMP 


END. TEST 




1316 










* 








1317 


2534 
2537 


4D 
00 


41 


50 


MAP 


BYTE 


'MAP',0 




1318 










* 








1319 










***a**A»******»***SS**********#***###*«S#*JBft* *«'********* 


1320 










* 








1321 










* 


LOOP 


ALL TESTS USING 


CHAIN 


1322 


2538 


CE 


25 


C7 


LOOPTEST 


LDX 


=UCCHAIN 




1323 


253B 


BD 


20 


15 




JSR 


CHAIN 




1324 


253E 


28 F8 






BRA 


LOOPTEST 




1325 










* 








1326 










««**««S»*«S««*S«««*«*«*«**«**«*S«««S«S««««««I*«##«S««»«* 


1327 










* 








1328 










* 


ENTRY 


POINT TO THE MICRO MONITOR 


1329 










* 








1330 










***«**«***#***»*****««*»***#*****##*« **** *******#*#**«» 


1331 










* 








1332 


2540 


CE 


25 


C0 


MICROCTRL 


LDX 


=MICROCNTR 




1333 


2543 


DF 


0B 






STX 


MAIN. ID 




1334 


2545 


CE 


25 


4B 




LDX 


=CONTMENU 




1335 


2548 


7E 


C3 


91 




JMP 


COMMANDS 




1336 


















1337 


254B 


09 






CONTMENU 


BYTE 


09 




1338 


254C 
254F 
2552 


4A 
55 
53 


20 

4D 

00 


4A 

58 




BYTE 


'J JUMPS', 





1339 


2554 


22 


Fl 






WORD 


JMPOP 




1340 


2556 


50 


20 


50 




BYTE 


'P PUSH. POP', 8 



NEL 










MOTOROLA ASSEMBLER 




HWTEST 




MICROCTRL 








2559 


55 


53 


48 








255C 


2E 


50 


4F 








255F 


50 00 








1341 


2561 


23 


32 




WORD 


PUSH. POP 


1342 


2563 


54 


20 


44 


BYTE 


'T DEPTH OF STACK ',0 




2566 


45 


50 


54 








2569 


48 


20 


4F 








256C 


46 


20 


53 








256F 


54 


41 


43 








2572 


4B 


00 








1343 


2574 


23 


73 




WORD 


STACKDPTH 


1344 


2576 


49 


20 


49 


BYTE 


'I INC OF PC',0 




2579 


4E 


43 


20 








257C 


4F 


46 


20 








257F 


50 


43 


00 






1345 


2582 


23 


BD 




WORD 


INCPC 


1346 


2584 


4B 


20 


43 


BYTE 


'K CONST', 




2587 


4F 


4E 


53 








258A 


54 


00 








1347 


258C 


23 


F8 




WORD 


CONST. TST 


1348 


258E 


53 


20 53 


BYTE 


'S SRC/DST',0 




2591 


52 


43 


2F 








2594 


44 


53 


54 








2597 


00 










1349 


2598 


24 


27 




WORD 


B.SRC.DST 


1350 


259A 


52 


20 


49 


BYTE 


'R INTERPT',8 




259D 


4E 


54 


45 








25A0 


52 


50 


54 








25A3 


00 










1351 


25A4 


24 


55 




WORD 


INTERPT 


1352 


25A6 


4D 


20 


4D 


BYTE 


'M MAPROM',8 




25A9 


41 


50 


52 








25AC 


4F 


4D 


00 






1353 


25AF 


24 


96 




WORD 


MAPPROM 


1354 


25B1 


58 


20 


45 


BYTE 


'X EXEC CHAIN', 




25B4 


58 


45 


43 








25B7 


20 


43 


43 








25BA 


41 


49 


4E 








25BD 


00 










1355 


25BE 


25 


38 




WORD 


LOOPTEST 


1356 








* 






1357 


25CB 


75 


43 


4F MICROCNTR 


BYTE 


75,'CONTR',0 




25C3 


4E 


54 


52 








25C6 


00 










1358 








« 






1359 


25C7 


06 




UC. CHAIN 


BYTE 


MCCH.LEN 


1360 


25C8 
25CB 


20 
C0 


4A 


25 


WORD 


SET. MAIN. ID, MICROCNTR 


1361 


25CC 
25CF 


22 

00 


Fl 


00 


WORD 


JMPOP.0 


1362 


25D0 
25D3 


23 
00 


32 


00 


WORD 


PUSH. POP, 8 


1363 


25D4 
25D7 


23 
00 


73 


00 


WORD 


STACK. DPTH.0 


1364 


25D8 

25DB 


23 
00 


BD 


00 


WORD 


INCPC, 8 


1365 


25DC 


23 


F8 


00 


WORD 


CONST. TST, 



07/05/82 08.44.28. SEITE NR 29 



NEL MOTOROLA ASSEMBLER 07/85/82 08.44.28. SEITE NR 30 

HWTEST MICROCTRL 

25DF 00 

1366 MC.CH.LEN EQU «-l-UC. CHAIN/4 

1367 25E0 20 3A 2C WORD NEXTCHAIN , ALU. CHAIN- 1 
25E3 A3 

1368 

1369 25E4 END MICROCTRL 



NEL 
HWTEST 
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1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 

1392 
1393 

1394 
1395 

1396 

1397 

1398 
1399 

1460 
1401 

1402 
1403 

1404 
1405 

1406 
1407 

1408 
1409 

1410 
1411 

1412 
1413 

1414 



25E4 



BEGIN ALU 

« 

ALU TEST PROGRAMS 

* 

AUTHOR JIRKA HOPPE 
VERSION 7,6.79 

* 

DEF ALU, ALU. CHAIN, ALU. CH0.LEN 

USE END. TEST, CHAIN, SET. MAIN. ID 

USE X.R. ROTATE, X.L. ROTATE 

USE VRITELN.A 

S 

* 

MICROINSTRUCTION USED BY VARIOUS ROUTINES 
* DST FCT SRC CAB SH PC S E SC DST SRC 



25E4 
25E7 

25E9 
25EC 

25EE 
25F1 

25F3 
25F6 

25F8 
25FB 

25FD 
2600 

2602 
2605 

2607 
260A 

260C 
260F 

2611 
2614 

2616 
2619 

261B 
261E 



73 E0 04 

60 F0 

61 C0 04 
60 F0 

6F E0 04 

60 0D 

6F 80 09 
70 00 

6E 02 04 
60 0D 

20 E0 24 

60 F0 

C2 60 04 
60 F0 

82 60 04 
60 F0 

80 E2 04 
60 50 

64 C2 04 
50 F0 

C0 E2 04 

60 50 

2F 80 04 
40 0D 



•CLR.R8 IB & DZ - 
CLRR0.MIR BYTE 73,0E0,04,60,0F0 

•INC.R0 IB +ZB100- 
INCR0.MIR BYTE 61,0C0,04,68,0F0 

•SHIFT IB OR DZ RC 
SHIFT. MIR BYTE 6F,0E0,04,60,0D 



- 



ALU 



ALU 



•MASK 1 - 
MASK. MIR BYTE 



OR DZ MC 
6F, 80, 09, 70, 00 



•SOURCE IB OR ZA 1 - 
SOURCE. MIR BYTE 6E,02,04,60,0D 



- 8 ALU PANEL 



1 



ALU PANEL 



«FCT 1 - 
FCT. MIR BYTE 



+ AB 1 - 
20,0E0,24,60,0F0 



•BQL.MIR 1 BQL + ZA - 
BQL.MIR BYTE 0C2,60,04,60,0F0 

•BQR.MIR 1 BQR + ZA 8 8 - 
BQR.MIR BYTE 82,60, 04, 68, 8F8 

•MULT. MIR 1 BQR + AB 8 18 - 
MULT. MIR BYTE 88,8E2,84,60,50 



- 







ALU 



ALU 



ALU 



MDS ALU 



•DIVi.MIR 1 B 
DIV1.MIR BYTE 



-+ AB 110 - 
64,0C2,04,60,0F0 







•DIV2.MIR 1 BQL ♦ AB 18 - 
DIV2.MIR BYTE 0C0,0E2,04,60,58 



ALU 



MDS ALU 



•PUSH 1 - 
PUSH. MIR BYTE 



•POP 



1 - 



OR DZ - 
2F,80,04,40,8D 

OR DZ - 



S 0' ALU PANEL 



S 



ALU 



NEL 
HWTEST 
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ALU 



1415 

1416 
1417 

1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1400 
1461 

1462 

1463 
1464 
1465 
1466 
1467 



2620 2F 80 84 POP. MIR BYTE 

2623 40 F0 

«U. JMP. MIR 10 
U.JMP.MIR BYTE 



2625 01 00 0F 
2628 20 0F 



2F,80,04,40,0F0 



01,00,0F,20,0F 



JMP 



262A 
262D 
262F 
2632 
2635 
2638 
263B 
263E 
2641 
2643 
2646 
2649 
264B 
264E 
2651 
2654 
2657 
2659 
265C 
265F 
2660 

2662 
2665 



ID 
58 
15 



CE 26 68 
DF 0D 
CE 25 E4 
BD CI 
BD CI 
B7 3C 
CE 00 00 
BC 3C 0E 
27 03 
BD El AA 
CE 26 6D 
DF 0D 
CE 25 E9 
BD CI ID 
CE 00 01 
BC 3C 0E 
27 03 
BD El AA 
B7 3C 15 
08 
26 F2 

BD CI 5F 
7E 20 4D 



2668 4F 55 54 

266B 31 00 

266D 4F 55 54 

2670 32 00 



* 

* TEST OUTPUT FROM 2901 

TEST INSTRUCTION LINES, REGISTER,.... (WE ASSUME THAT THESE ARE OK.) 

* 

« PROCEDURE OUT2901; 

BEGIN SUB.ID= '0UT1'; 

MIR := (1 B & DZ - ALU); («CLR R0*); SINGLE STEP; 

IF CPUO0 THEN PRINTBUS END; 
SUB.ID:= '0UT2'; 

MIR := (1 B + ZB 1 8 - ALU); (*INC R0»); 

FOR X := 1 TO 0FFFFH DO 
» IF CPUBUS <> X THEN PRINTBUS END; 
SINGLE STEP; 
END; 
END; 

* 

OUT2901 LDX 

STX 

LDX 

JSR 

JSR 

STAA 

LDX 

CPX 

BEQ 

JSR 
ENDIF10UT LDX 

STX 

LDX 

JSR 

LDX 
FOROUT CPX 

BEQ 

JSR 
ENDIF20UT STAA 

INX 

BNE 

JSR 
JMP 

* 

0UT1TEXT BYTE 
0UT2TEXT BYTE 



=0UT1TEXT 

SUB. ID 

=CLR.R0.MIR 

LDMIR MIR := CLR.R0 

EDMIR 

SSP SINGLE STEP 

=0 

CPU1 

ENDIF10UT 

PRINTBUS (B,A)=ACTUAL; X=ACTUAL*******«*** 

=0UT2TEXT 

SUB. ID 

=INC.R0.MIR 

LDMIR MIR := INC.R0 

=1 

CPU1 

ENDIF20UT 

PRINTBUS (B,A)=ACTUAL; X=ACTUAL**«»«****«« 

SSP SINGLE STEP 

FOROUT OVERFLOWS TO ZERO 

EPMIR 

ENDTEST MAKES RTS 

'OUTl',0 

'OUT2',0 



«********#**###**************#*#**#**##****«*«»«*««***#* 



* TEST INPUT LINES TO 2901 



NEL 
HWTEST 
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ALU 



1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1488 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 

1560 
1501 
1502 
1503 
1504 
1585 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 



2672 
2675 
2677 
267A 
267D 
267F 
2682 
2685 
2688 
268B 
268E 
2691 
2693 
2696 
2698 
269B 
269D 
269E 



26A6 
26A9 



CE 26 A6 
DF 0D 
BD CI 58 
CE 80 00 
DF 2E 
FF 3C 0E 
CE C2 A0 
BD CI ID 
B7 3C 15 
CE C2 A5 
BD CI ID 
DE 2E 
BC 3C 0E 
27 03 
BD El 
DE 2E 
08 
26 DD 



AA 



26A0 BD CI 5F 
26A3 7E 28 4D 



49 4E 50 

00 



PROCEDURE INP2981; 
BEGIN SUB. ID :- 



INP"; 



FOR X := TO 8FFFFH DO HELP1 := X; 

MIR := LOADREGISTER; SINGLE STEP; 

MIR := READREGISTER; 

IF CPUBUS <> HELP1 THEN PRINTBUS END; 
END; 



END; 



INP2901 



FORINP 



LDX 

STX 

JSR 

LDX 

STX 

STX 

LDX 

JSR 

STAA 

LDX 

JSR 

LDX 

CPX 

BEQ 

JSR 

LDX 

INX 

BNE 

JSR 
JMP 



INPTEXT BYTE 



INP1 



=INPTEXT 

SUB. ID 

EDMIR 

=0 

HELP1 

CPU1 

-WRITE. R 

LDMIR 

SSP 

=READ.R 

LDMIR 

HELP1 

CPU1 

INP1 

PRINTBUS 

HELP1 

FORINP 



SINGLE STEP 



(B.A)-ACTUAL; X=DESIRED**» 



OVERFLOWS TO ZERO 



* a * * * * a 



EPMIR 

END. TEST MAKES RTS 

'INP',0 



* TEST THE 25S10 SHIFTER UNIT 

* 

» PROCEDURE SHIFTER(X); 

* VAR HELP1, HELP2; 

BEGIN HELP2 := X; SUB. ID :-' SHIFTER ' ; 
FOR B := TO 15 DO 

CPUBUS := HELP1 := HELP2; 
« FOR A :- TO 15 DO 

MIR := (1 B OR DZ 8 RC - - 8 ALU PANEL); 

MIR. SHIFT. COUNT := A; 

SINGLE STEP; (» THE SHIFTED VALUE IS READ INTO R0 *) 

MIR := (1 - OR ZA - ALU); 

IF HELP1 <> CPUBUS THEN WRITELN(A); PRINTBUS; END; 
R.ROTATE(HELPl); 
» END; 

L.R0TATE(HELP2); 
END 
END; 



26AA CE FF FE SHIFTR0 LDX =0FFFE 
26AD 24 02 BCC SHIFTER 



ENTRY FROM MENU 

IF NO VALUE SPECIFIED TAKE DEFAULT 8FFFE 



NEL 
HWTEST 



ALU 
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1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 



1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 



26AF DE 0F 



26B1 
26S3 
26B6 
26B8 

26BB 

26BC 
26BE 
26C0 
26C3 
26C5 
26C8 
26CB 
26CE 
26D1 
26D4 
26D7 
26D9 
26DC 
26DE 
26DF 
26E1 
26E4 
26E5 
26E8 
26EA 
26ED 
26EF 
26F0 
26F2 

26F4 
26F6 
26F9 
26FB 
26FC 
26FE 

2700 
2703 



DF 30 
CE 27 06 
DF 0D 
BD CI 58 
5F 



SHIFTER 



DE 30 
DF 2E 
FF 3C 
86 60 



0E 



CE 25 
BD CI 



EE 
ID 

B7 3C 0B 

B7 3C 15 

CE C2 A5 

BD CI ID 

DE 2E 

BC 3C 0E 

27 0A 

36 

84 0F 

BD 20 87 

32 

BD El AA 

DE 2E 

BD 20 A3 

DF 2E 

4C 

81 70 

26 Dl 

DE 30 

BD 20 8D 
DF 30 
5C 

CI 10 
2D BC 

BD CI 5F 
7E 20 4D 



2706 53 48 49 
2709 46 54 45 
270C 52 00 



FOR1SH 



F0R2SH 



LDX 

STX 
LDX 
STX 
JSR 
CLR 

LDX 

STX 

STX 

LDAA 

LDX 

JSR 

STAA 

STAA 

LDX 

JSR 

LDX 

CPX 

BEQ 

PSH 

ANDA 

JSR 

PUL 

JSR 

LDX 

JSR 

STX 

INC 

CMPA 

BNE 

LDX 

JSR 

STX 

INC 

CMPB 

BLT 

JSR 
JMP 



SHIFTTEXT BYTE 



ENDIFSH 



X.VORD 

HELP2 
=SHIFTTEXT 
SUB. ID 
EDMIR 
B 

HELP2 

HELP1 

CPU1 

=01100000L MIR1 

=SHIFT.MIR 

LDMIR 



(SC-0) 



SPECIFY SHIFT COUNT 
SINGLE STEP 



MIR1 
SSP 

=READ.R 

LDMIR 

HELP1 

CPU1 

ENDIFSH 

A 

=0F MASK LOVER BITS 

VRITELN.A PRINT(COUNT) *****«*»**«***»*»*« 

A 

PRINTBUS (B,A) ACTUAL; X DESIRED »***«*** 

HELP1 

X.R. ROTATE 

HELP1 

A 

=01110000L SHIFT COUNT = 16Z 

F0R2SH 

HELP2 

X.L. ROTATE 

HELP2 

B 

=10 

FOR1SH 



EPMIR 
END. TEST 

' SHIFTER', 



MAKES RTS 



* 

« TEST 25S10 SHIFTER FOR MASKING OPERATION 

« 

* PROCEDURE MASK; 

* BEGIN SUB. ID := 'MASK'; HELP1:=0; 

FOR A := TO 15 DO 

MIR := (1 - OR DZ MC - - 1 0); 
MIR.SHIFTCOUNT := A; SINGLE STEP; 
MIR :- READREGISTER; 



NEL 

HWTEST 



ALU 
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1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 

1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 



IF CPUBUSOHELP1 THEN WRITELN(A); PRINTBUS END; 
ARITHMETIC . RIGHT . SHIFT(HELPl) ; 
END; 



END; 



270E 
2711 
2713 
2716 
2718 
271B 

27 ID 
2720 
2723 
2726 
2729 
272C 
272F 
2731 
2734 
2736 
2737 
2739 
273C 
273D 
2740 

2742 
2743 
2746 
2748 
2749 
274B 

274D 
2750 

2753 
2756 



CE 27 53 
DF 0D 
CE 00 00 
DF 2E 
BD CI 58 
86 70 

CE 25 F3 
BD CI ID 
B7 3C 0B 
B7 3C 15 
CE C2 A5 
BD CI ID 
DE 2E 
BC 3C 0E 
27 0A 
36 

84 0F 
BD 20 87 
32 

BD El AA 
DE 2E 

08 

BD 20 A3 

DF 2E 

4C 

81 80 

26 D0 

BD CI 5F 
7E 20 4D 

4D 41 53 

4B 00 



MASK 



LDX 
STX 
LDX 
STX 
JSR 
LDAA 



FORMSK LDX 
JSR 
STAA 
STAA 
LDX 
JSR 
LDX 
CPX 
BEQ 
PSH 
ANDA 
JSR 
PUL 
JSR 

ENDIFMSK LDX 

INX 

JSR 

STX 

INC 

CMPA 

BNE 

JSR 
JMP 

* 

MASK. TEXT BYTE 



=MASK.TEXT 

SUB. ID 

=0 

HELP1 

EDMIR 

-01110000L MIR1 :- (COUNT = 0) 



SET MASK COUNTER 
NOW READ IT INTO R0 

READ R0 ONTO CPU BUS 



-MASK. MIR 

LDMIR 

MIR1 

SSP 

-READ.R 

LDMIR 

HELP1 

CPU1 

ENDIFMSK 

A 

=0F MASK LOWER BITS 

WRITELN.A WRITE(SHIFT COUNT) «**«**«**»»«»« 

A 

PRINTBUS (B,A) ACTUAL; X DESIRED ********* 

HELP1 

THESE 2 INSTRUCTIONS MAKE ASR(X) 
X.R. ROTATE 
HELP1 
A 

=10000000L SHIFT COUNT = 16 - 
FORMSK 

EPMIR 

END. TEST MAKES RTS 

'MASK',0 



s 

« TEST 2901 REGISTER ADDRESSING 
» USE PROCEDURES 

- LOADREG => USES B ADDRESSING MODE 

- READREG => USES A ADDRESSING MODE 

* 

» PROCEDURE REGISTERADDRESSING; 

BEGIN SUB. ID := 'REGADR'; X := 
« FOR B := T0 15 DO 

LOADREG(B.X); X := X + 1111H; ("INCREMENT ALL NIBBLES *) 
END; 

HELP1:=0; 
* FOR B := TO 15 DO 

IF XOHELP1 THEN WRITELN(B); PRINTBUS END; 
X := X + 1111H; 



NEL 










HWTEST 




ALU 


1635 










1636 










1637 










1638 


2758 


CE 


27 


9E 


1639 


275B 


DF 


0D 




1648 


275D 


CE 


00 


08 


1641 


2760 


DF 


2E 




1642 


2762 


4F 






1643 


2763 


5F 






1644 


2764 


BD 


CI 


58 


1645 


2767 


DE 


2E 




1646 


2769 


BD 


C2 


AA 


1647 


276C 


83 


11 




1648 


276E 


97 


2E 




1649 


2778 


97 


2F 




1658 


2772 


5C 






1651 


2773 


CI 


10 




1652 


2775 


2D 


F0 




1653 










1654 


2777 


CE 


00 


ee 


1655 


277A 


DF 


2E 




1656 


277C 


4F 






1657 


277D 


5F 






1658 


277 E 


BD 


C2 


DD 


1659 


2781 


9C 


2E 




1668 


2783 


27 


89 




1661 


2785 


36 






1662 


2786 


17 






1663 


2787 


BD 


20 


87 


1664 


278A 


BD 


El 


AA 


1665 


278D 


36 






1666 


278E 


DE 


2E 




1667 


2790 


8B 


11 




1668 


2792 


97 


2E 




1669 


2794 


97 


2F 




1678 


2796 


5C 






1671 


2797 


CI 


10 




1672 


2799 


2D 


E3 




1673 










1674 


279B 


7E 


28 


4D 


1675 










1676 


279E 


52 


45 


47 




27 A 1 


41 


44 


52 




27A4 


08 






1677 










1678 










1679 










1688 










1681 










1682 










1683 










1684 










1685 










1686 










1687 










1688 










1689 
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END; 
END; 



REG. ADR 



FOR IRA 



F0R2RA 



ENDIFRA 



LDX 

STX 

LDX 

STX 

CLR 

CLR 

JSR 

LDX 

JSR 

ADDA 

STAA 

STAA 

INC 

CMPB 

BLT 

LDX 

STX 

CLR 

CLR 

JSR 

CPX 

BEQ 

PSH 

TBA 

JSR 

JSR 

PSH 

LDX 

ADDA 

STAA 

STAA 

INC 

CMPB 

BLT 

JMP 



INCREMENT ALL NIBBLES BY ONE 



=REGADRTXT 
SUB. ID 
=8 

HELP1 
A 
B 

EDMIR 
HELP1 
LOADREG 
=11 
HELP1 
HELP1+1 
B 
=10 
FOR IRA 

=0 

HELP1 

A 

B 

READREG 

HELP1 

ENDIFRA 

A 



WRITELN.A WRITE(REG.ADR) «»**•*«****»*»»«« 

PRINTBUS (B,A) := ACTUAL; X-DESIRED »*«** 

A 

HELP1 

=11 

HELP1 

HELP1+1 

B 

=10 

F0R2RA 

END. TEST MAKES RTS 



REGADRTXT BYTE 'REGADR',0 

* 

* 

» TEST 2901 SOURCE ADDRESSING 

« 

« PROCEDURE SOURCE; 

BEGIN SUB. ID := 'SOURCE'; 
* L0ADREG(Q,4444H); 
« FOR A := TO 7 DO 
« LOADREG(0,11HH); 

L0ADREG(1,2222H); 

CPUBUS:=8888; 

MIR := (1 B OR ZA 1 ALU PANEL); 



NEL 
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HWTEST 


ALU 












1690 








* 




MIR.RS := 


A; SINGLE STEP 


1691 








* 




IF READREG(0) <> TABLE[A] THEN WRITELN(A); PRINTCPU END; 


1692 








* 


END; 






1693 








« 


END 








1694 








* 










1695 


27A5 


CE 28 


09 


SOURCE 


LDX 


=SRC.TEXT 




1695 


27A8 


DF 0D 








STX 


SUB. ID 




1697 


27AA 


BD CI 


58 






JSR 


EDMIR 




1698 


27AD 


C6 10 








LDAB 


=Q.REG 




1699 


27AF 


CE 44 


44 






LDX 


=4444 




1700 


27B2 


BD C2 


AA 






JSR 


LOADREG 


Q :=4444 


1701 


27B5 


CE 6C 


02 






LDX 


=0110110000000010L MIR3,4:=(1 B OR AQ 1,.,) 


1702 


27B8 


DF 30 








STX 


HELP2 


SOURCE COUNTER 


1703 


27BA 


4F 








CLR 


A 




1784 


27BB 


CE 28 


BB 






LDX 


=SRC.TABLE-2 POINTER TO THE RESULT TABLE 


1705 


27BE 


DF 2E 








STX 


HELP1 




1706 


27C0 


5F 




FORSRC 


CLR 


B 




1707 


27C1 


CE 11 


11 






LDX 


=1111 




1708 


27C4 


BD C2 


AA 






JSR 


LOADREG 


R0:-lill 


1709 


27C7 


5C 








INC 


B 




1710 


27C8 


CE 22 


22 






LDX 


=2222 




1711 


27CB 


BD C2 


AA 






JSR 


LOADREG 


Rl:=2222 


1712 


27CE 


CE 88 


88 






LDX 


=8888 




1713 


27D1 


FF 3C 0E 






STX 


CPU1 


CPUBUS := 8888 


1714 


27D4 


CE 25 


F8 






LDX 


=SOURCE.MIR 


1715 


27D7 


BD CI 


ID 






JSR 


LDMIR 




1716 


27DA 


DE 30 








LDX 


HELP2 




1717 


27DC 


FF 3C 


88 






STX 


MIR4 




1718 


27DF 


B7 3C 


15 






STAA 


SSP 


SINGLE STEP 


1719 


27E2 


CE C2 


A5 






LDX 


=READ.R 




1720 


27E5 


BD CI 


ID 






JSR 


LDMIR 




1721 


27E8 


BD 28 


8B 






JSR 


INC. LOAD 




1722 


27EB 


BC 3C 


0E 






CPX 


CPU1 




1723 


27EE 


27 06 








BEQ 


ENDIFSRC 




1724 


27F0 


BD 20 


87 






JSR 


WRITELN.A 


WRITE(RS )***************************** 


1725 


27F3 


BD El 


AA 






JSR 


PRINTBUS 


(B,A)=ACTUAL; X=DESIRED *.«»**«*»**»» 


1726 


27F6 


D6 31 




ENDIFSRC 


LDAB 


HELP2+1 


INCREMENT SOURCE COUNTER 


1727 


27F8 


CB 80 








ADDB 


=80 


HELP1 := HELP1 + 80 (* 80 IS POSITION 


1728 


27FA 


D7 31 








STAB 


HELP2+1 


OF SRC COUNTER *) 


1729 


27FC 


24 03 








BCC 


NOCARYSRC 




1730 


27FE 


7C 00 


30 






INC 


HELP2 




1731 


2801 


4C 




NOCARVSRC 


INC 


A 




1732 


2802 


81 08 








CMPA 


=8 




1733 


2884 


2D BA 








BLT 


FORSRC 




1734 


















1735 


2806 


7E 20 


4D 






JMP 


END. TEST 


MAKES RTS 


1736 








* 










1737 


2809 
280C 


53 52 

08 


43 


SRC 


.TEXT 


BYTE 


'SRC',0 




1738 








« 


A=2222, B-llll 


, 0=4444, 


CPU=8888 


1739 








* 


OR FUNCTION 


AQ AB 


ZQ ZB ZA DA DQ DZ 


1740 


280D 


66 66 


33 


SRC 


TABLE 


WORD 


6666,3333, 


4444, 1111, 2222, 0AAAA,0CCCC,8888 




2810 


33 44 


44 














2813 


11 11 


22 














2816 


22 AA 


AA 














2819 


CC CC 


88 














281C 


88 















NEL 
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HWTEST 




ALU 










1741 










* 








1742 










***#*******************************#*****$£****** ****** ********* 


1743 










* 








1744 










* 


BASIC ARITHMETICAL AND LOGICAL FUNCTION TEST 


1745 










* 








1746 










* 


PROCEDURE FUNCTIONS; 




1747 










« 


BEGIN SUB. ID 


;= 'FCT'; 




1748 










* 


LOADREG(0,1H1H); 




1749 










* 


L0ADREG(1,2222H); 




1758 










« 


MIR : = (1 - 


+ AB 1 - 


- - - ALU); 


1751 










* 


FOR A :- 


TO 7 DO MIR 


.FCT := A; 


1752 










« 


IF CPUBUSOX THEN WRITELN(A); PRINTBUS END; 


1753 










* 


END; 






1754 










* 


END; 






1755 










« 








1756 


28 ID 


CE 


28 


5B 


FUNCTIONS LDX 


=FCT.TEXT 




1757 


2820 


DF 


0D 






STX 


SUB. ID 




1758 


2822 


BD 


CI 


58 




JSR 


EDMIR 




1759 


2825 


5F 








CLR 


B 




1760 


2826 


CE 


11 


11 




LDX 


=1111 




1761 


2829 


BD 


C2 


AA 




JSR 


LOADREG 


R0 ;= 1111 


1762 


282C 


5C 








INC 


B 




1763 


2820 


CE 


22 


22 




LDX 


=2222 




1764 


2830 


BD C2 


AA 




JSR 


LOADREG 


Rl := 2222 


1765 


2833 


CE 


25 


FD 




LDX 


=FCT.MIR 




1766 


2836 


BD 


CI 


ID 




JSR 


LDMIR 




1767 


2839 


CE 


28 


5D 




LDX 


=FCT.TABLE-2 


1768 


283C 


DF 


2E 






STX 


HELP1 


HELP1 := tTABLE 


1769 


283E 


C6 


20 






LDAB 


=00100800L 


MIR4 := (- + AB ...) 


1770 


2840 


4F 








CLR 


A 


A = COUNTER FOR PRINT OUT 


1771 


2841 


F7 


3C 


08 


FOF 


. FCT STAB 


MIR4 




1772 


2844 


8D 


45 






BSR 


INC. LOAD 




1773 


2846 


BC 


3C 


0E 




CPX 


CPU1 




1774 


2849 


27 


06 






BEQ 


ENDIFFCT 




1775 


284B 


BD 


29 


87 




JSR 


WRITELN.A 


WRITELN(FCT) ******** *********** 


1776 


284E 


BD 


El 


AA 




JSR 


PRINTBUS 


(B,A)=ACTUAL; X=DESIRED»«***** 


1777 


2851 


CB 04 




ENDIFFCT ADUB 


=4 


INCREMENT FCT 


1778 


2853 


4C 








INC 


A 




1779 


2854 


81 


08 






CMPA 


=8 




1780 


2856 


2D 


E9 






BLT 


FOR. FCT 




1781 


















1782 


2858 


7E 


20 


4D 




JMP 


END. TEST 


MAKES RTS 


1783 










* 








1784 


285B 
285E 


46 
00 


43 


54 


FCT 


.TEXT BYTE 


'FCT',0 




1785 










* 


A=llll, B=2222 




1786 










* 


FCT 


+ - + 


OR « -8 XOR -XOR 


1787 


285F 
2862 
2865 
2868 
286B 
286E 


33 
10 
33 
00 
33 
CC 


33 
EE 
33 
22 
33 


11 
EE 

00 

22 

CC 


FCT 


.TABLE WORD 


3333,1113, 


0EEEE , 3333 , 0000 , 2222 , 3333 , 0CCCC 


1788 










*****************#**********#**********%* 


1789 










* 








1790 










* 


PROCEDURE PRINT. HELP; 




1791 










* 


(« A PRINT HE 


LP FOR PROCED 


URES TEST. R0.Q. CHAIN AND DIVIDE 



SEITE MR 38 



NEL MOTOROLA ASSEMBLER 07/85/82 08.44.28, SEITE NR 39 

HWTEST ALU 

1792 « BEGIN HEXOUT(HELPl); 

1793 * (B,A) := HELP2; S.W.I(B,A,HELPlt) 

1794 « END PRINT. HELP 

1795 « 

1796 286F BD C2 59 PRINTHELP JSR PUSHX 

1797 2872 36 PSH A 

1798 2873 37 PSH B 

1799 2874 DE 2E LDX HELP1 

1800 2876 BD C2 87 JSR PRINTX 

1801 2879 BD C0 78 JSR W.CRLF 

1802 287C D6 30 LDAB HELP2 

1803 287E 96 31 LDAA HELP2+1 

1804 2880 DE 2E LDX HELP1 

1805 2882 EE 00 LDX 0,X 

1806 2884 3F SWI ********#******** 

1807 2885 33 PUL B 

1808 2886 32 PUL A 

1809 2887 BD C2 70 JSR PULLX 

1810 288A 39 RTS 

1812 « PROCEDURE INC. LOAD 

1813 * (* INCREMENT A POINTER TO A LIST AND LOAD THE POINTED VALUE *) 
1814 

1815 288B DE 2E INC. LOAD LDX HELP1 

1816 288D 08 INX 

1817 288E 08 INX 

1818 288F DF 2E STX HELP1 

1819 2891 EE 00 LDX 0,X 

1820 2893 39 RTS 

1821 ***»«*##*****#*««#«**#*#*****#*#******#«*$**■** 
1822 

1823 * PROCEDURE TEST.R0.Q.CHAIN(X : ^COMMAND STRING); 

1824 » (« THIS PROCEDURE EXECUTES A COMMAND STRING 

1825 » AND CHECKS IF THE ACTUAL VALUES OF R8.REG AND Q.REG 

1826 « CORRESPOND TO THE EXPECTED VALUES 

1827 » FORMAT OF THE STRING: 

1828 « SET(R0); SET(Q); tMICROINTRUCTION; 

1829 « EXPECTED(RB); EXPECTED(Q); EXPECTED(R0); EXPECTED(Q) ») 

1830 « BEGIN HELP1 := X; 

1831 » LOADREG(0, Xt); 

1832 * INC(HELP1, 2); LOADREG(Q, HELPlt); 

1833 * INC(HELP1, 2); HELP4.-HELP1; 

1834 * FOR HELP3 := 2 TO STEP -1 DO 

1835 « " EXX(HELP4t); 

1836 » HELP2 := READREG(O); 

1837 » INC(HELP1, 2); 

1838 * IF HELP2 <> HELP1 THEN PRINTHELP END 

1839 » INC(HELP1, 2); HELP2 := READREG(Q.REG); 

1840 » IF HELP2 <> HELP1 THEN PRINTHELP END 

1841 « END TEST. R8.Q. CHAIN; 
1842 

1843 2894 DF 2E TEST.R0.Q STX HELP1 

1844 2896 BD CI 58 JSR EDMIR 

1845 2899 5F CLR B 

1846 289A EE 00 LDX 0,X 

1847 289C BD C2 AA JSR LOADREG R0 := Xt 

1848 289F C6 10 LDAB =Q.REG 



NEL 
HWTEST 



ALU 
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1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1395 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1983 

1904 

1905 



28A1 
28A3 
28A6 
28A8 
28AA 
28AC 
28AE 
28B0 
28B3 
28B4 
28B7 
28B9 
28BB 
28BD 
28BF 
28C1 
28C3 
28C6 
28C8 
28CA 
28CC 
28CE 
28D0 
28D3 
28D5 



28D6 
28D8 
28DB 
28DC 
28DE 
28E1 
28E3 
28E5 
28E8 
28EA 



8D E8 
BD C2 AA 
86 02 
97 32 
8D DF 
DF 34 
DE 34 
BD CI 17 
5F 

BD C2 DD 
DF 30 
8D D0 
9C 30 
27 02 
8D AE 
C6 10 
BD C2 DD 
DF 30 
8D CI 
9C 30 
27 02 
8D 9F 
7A 00 32 
26 D9 
39 



BSR INC. LOAD 

JSR LOADREG Q ;= HELP1 

LDAA =2 

STAA HELP3 

BSR INC. LOAD 

STX HELP4 

TST.RQ.FOR LDX HELP4 

JSR EXX 

CLR B 

JSR READREG 

STX HELP2 KELP2 := R0 

BSR INC. LOAD 

CPX HELP2 

BEQ TST.R.OK 

BSR PRINT. HELP 

TST.R.OK LDAB =Q.REG 

JSR READREG 

STX HELP2 HELP2 :- Q.REG 

BSR INC . LOAD 

CPX HELP2 

BEQ TST.Q.OK 

BSR PRINT. HELP ****#******«*#««»»,•* 

TST.Q.OK DEC HELP3 

BNE TST.RQ.FOR 

RTS 



• ft*****:***:**^*^******************.*****,,,*^,!! 



**a*#* 



DF 2E 
BD CI 58 
5F 

EE 00 
BD C2 AA 
C6 10 
8D A6 
BD C2 AA 
86 04 
97 32 



« PROCEDURE DIVIDE( X : t COMMANDSTRING) ; 
(« TEST A DIVIDE STEP *) 
FORMAT : LOAD(R0); LOAD(Q.REG); 

TEST R0,Q, R0,Q, R0,Q, R8,Q «) 

« 

* BEGIN HELP1 :- X; 

L0ADREG(R8, HELPlt); 
« INC(HELP1, 2); LOADREG(Q.REG, HELPlt); 
» HELP31 := 8; 

* FOR HELP3 := 4 TO 8 STEP -1 DO 

IF EVEN(HELP31) THEN EXX(DIVl.MIR) ELSE EXX(DIV2.MIR) END; 
HELP2 := READREG(RB); INC(HELP1, 2); 
IF HELP2 <> HELP1 THEN PRINTHELP END; 
HELP2 :- READREG(Q.REG); INC(HELP1, 2); 
IF HELP2 <> HELP1 THEN PRINTHELP END; 
INC(HELP31) 
END 
« END; 

* 

DIVIDE 



R8:= Xt 



STX 


HELP1 


JSR 


EDMIR 


CLR 


B 


LDX 


8,X 


JSR 


LOADREG 


LDAB 


=Q.REG 


BSR 


INC. LOAD 


JSR 


LOADREG 


LDAA 


=4 


STAA 


HELP3 



HELP1 



COUNTER FOR THE FOR STATEMENT 



NEL 
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SEITE NR 
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1906 


28EC 


7F 


00 


33 






CLR 


HELP3+1 




1907 


28EF 


CE 


26 


11 


DIV.FOR 


LDX 


=DIV1.MIR 




1908 


28F2 


96 


33 








LDAA 


HELP3+1 




1909 


28F4 


84 


01 








ANDA 


=1 




1910 


28F6 


27 


03 








BEQ 


DO. EXX 




1911 


28F8 


CE 


25 


16 






LDX 


=DIV2.MIR 




1912 


28FB 


BD 


CI 


17 


DO. 


EXX 


JSR 


EXX 




1913 


28FE 


5F 










CLR 


B 




1914 


28FF 


BD 


C2 


DD 






JSR 


READREG 




1915 


2902 


DF 


30 








STX 


HELP2 HELP2 := READREG(0) 




1916 


2904 


8D 


85 








BSR 


INC. LOAD 




1917 


2996 


9C 


30 








CPX 


HELP2 




1918 


2908 


27 03 








BEQ 


DIV.R0.OK 




1919 


290A 


BD 


28 


6F 






JSR 


PRINTHELP ****#*******««*« 




1920 


290D 


C6 


10 




DIV 


.R0.OK LDAB 


=Q.REG 




1921 


290F 


BD 


C2 


DD 






JSR 


READREG 




1922 


2912 


DF 


30 








STX 


HELP2 HELP2 :- READREG(Q) 




1923 


2914 


BD 


23 


8B 






JSR 


INC. LOAD 




1924 


2917 


9C 


30 








CPX 


HELP2 




1925 


2919 


27 


03 








BEQ 


DIV. Q.OK 




1926 


29 IB 


BD 


28 


6F 






JSR 


PRINTHELP *************#****** 




1927 


291E 


7C 


00 


33 


DIV 


.Q.OK 


INC 


HELP3+1 




1928 


2921 


7A 


00 


32 






DEC 


HELPS 




1929 


2924 


26 


eg 








BNE 


DIV.FOR 




1930 


2926 


39 










RTS 






1931 










* 










1932 










«S«S«tXtSttI**8«St*t*t*K*8t«t«*«*tt**ittt*4t»i|itt 




1933 










* 










1934 










* 


PROCEDURE SHIFTED. DESTINATIONS 




1935 










* 


BEGIN 






1936 










* 


SUB. ID := 


'BQL'; TEST. R0.Q.CHAIN(BQL. SEQUENCE); 




1937 










* 


SUB. ID := 


' BQR ' ; TEST . R9 . Q . CHAIN(BQR . SEQUENCE) ; 




1938 










* 


END 


SHIFTED 


DESTINATIONS; 




1939 










* 










1940 


2927 


CE 


29 


40 


SH. 


DEST 


LDX 


=BQL.TEXT 




1941 


292A 


DF 


0D 








STX 


SUB. ID 




1942 


292C 


CE 


29 


48 






LDX 


=BQL.SEQ 




1943 


292F 


BD 


28 


94 






JSR 


TEST.R0.Q 




1944 


2932 


CE 


29 


44 






LDX 


=BQR.TEXT 




1945 


2935 


DF 


0D 








STX 


SUB. ID 




1946 


2937 


CE 


29 


56 






LDX 


=BQR,SEQ 




1947 


293A 


BD 


28 


94 






JSR 


TEST.R0.Q 




1948 


293D 


7E 


20 


4D 






JMP 


END. TEST 




1949 










* 










1950 


2940 
2943 


42 
00 


51 


4C 


BQL 


.TEXT 


BYTE 


'BQL',0 




1951 


2944 
2947 


42 
60 


51 


52 


BQR 


.TEXT 


BYTE 


'BQR',0 




1952 










* 






R0 Q MIR R0 Q R0 Q 




1953 


2948 


88 


88 


88 


BQL.SEQ 


WORD 


8888, 8888, BQL. MIR, 1111, 1111, 2222, 2222 






294B 


88 


26 


02 














294E 


11 


11 


11 














2951 


11 


22 


22 














2954 


22 22 














1954 


2956 


11 


11 


22 


BQR.SEQ 


WORD 


1111,2222, BQR, MIR, 0888, 9111, 0444, 4888 






2959 


22 


26 


07 














295C 


08 


88 


91 













41 



LDX 


-MULT.TEXT 


SIX 


SUB. ID 


JSR 


EDMIR 


LDAB 


=1 


LDX 


=1 


JSR 


LOADREG Rl 


LDX 


-MULTI. SEQ 


JSR 


TEST.R0.Q 


LDX 


=MULT2.SEQ 


JSR 


TEST.R0.Q 


JMP 


END. TEST 
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HWTEST ALU 

295F 11 04 44 

2962 48 88 
1955 

1956 «**«*#***g*s######*##****w#*#######s********* ********** 

1957 * 

1958 * PROCEDURE MULTIPLICATION; 

1959 * BEGIN SUB. ID := MULT; LOADREG(l.l) 

1960 « TEST. R0.Q.CHAIN(MULT1. SEQ); 

1961 « TEST. R0.Q.CHAIN(MULT2. SEQ); 

1962 * END MULTIPLICATION; 
1963 

1964 2964 CE 29 83 MULT 

1965 2967 DF 0D 

1966 2969 BD CI 58 

1967 296C C6 01 

1968 296E CE 80 01 

1969 2971 BD C2 AA 

1970 2974 CE 29 88 

1971 2977 BD 28 94 

1972 297A CE 29 96 

1973 297D BD 28 94 

1974 2980 7E 29 4D 
1975 

1976 2983 4D 55 4C MULT. TEXT BYTE 'MULT',0 
2986 54 00 

1977 * R8 Q R0 Q R0 Q 

1978 2988 00 85 00 MULT1.SEQ WORD 0005, 0002, MULT. MIR, 0002, 8801, 008 1,0C080 
298B 02 26 0C 
298E 00 02 80 
2991 01 00 01 
2994 C0 00 

1979 2996 FF FB 00 MULT2.SEQ WORD 0FFFB, 002, MULT. MIR, 07FFD, 8081, 03FFF, 4000 
2999 02 26 0C 
299C 7F FD 80 
299F 01 3F FF 
29A2 40 00 

1980 * 

1982 » 

1983 » PROCEDURE DIVISION; 

1984 « BEGIN SUB, ID := 'DIV; LOADREG(l, 2) 

1985 « DIVIDE(DIVl.SEQ); DIVIDE(DIV2.SEQ); 

1986 » , END DIVISION 
1987 

1988 29A4 CE 29 CB DIVISION LDX =DIV.TEXT 

1989 29A7 DF 0D STX SUB. ID 

1990 29A9 BD CI 58 JSR EDMIR 

1991 29 AC C6 01 LDAB =1 

1992 29AE CE 00 02 LDX =2 

1993 29B1 BD C2 AA JSR LOADREG Rl:=2 

1994 29B4 CE 29 CF LDX -DIV1.SEQ 

1995 29B7 BD 28 D6 JSR DIVIDE 

1996 29BA C6 01 LDAB =1 

1997 29BC CE FF FE LDX =0FFFE 

1998 29BF BD C2 AA JSR LOADREG R1:=FFFE 

1999 29C2 CE 29 E3 LDX =DIV2.SEQ 
2800 29C5 BD 28 D6 JSR DIVIDE 
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HWTEST ALU 

2001 29C8 7E 20 4D JMP END. TEST 
2002 

2003 29CB 44 49 56 DIV.TEXT BYTE 'DIV',0 
29CE 00 

2004 * R0 Q R0 Q R0 Q R0 Q R0 Q 
2085 29CF 00 01 80 DIV1.SEQ WORD 1, 8000, 0FFFF, 8000, 3, 0,1, 0,2,1 

29D2 00 FF FF 

29D5 80 00 00 

29D8 03 00 00 

29DB 00 01 00 

29DE 00 00 02 

29E1 00 01 

2006 29E3 FF FF 80 DIV2.SEQ WORD 0FFFF ,8888, 1,8080 ,3, 1,5, 1,86,2 

29E6 80 80 01 

29E9 88 08 88 

29EC 83 BS 01 

29EF 00 05 00 

29F2 01 00 06 

29F5 00 02 
2087 
2008 
2009 * 

2011 

2012 « TEST CARRY INPUT; 

2013 

2814 « PROCEDURE CARRY. INP; 

2015 « BEGIN SUB. ID := 'CARRY'; 

2016 * LOADREG(0,FFFFH); LOADREQ(1,0); 

2017 « MIR := (1 - + AB 8 8 1 8 8 - ALU); 

2018 * IF CPU3US <> FFFFH THEN PRINTBUS END; 

2019 « MIR.C := 1 

2828 » IF CPUBUS <> 8 THEN PRINTBUS END; 

2821 » SINGLE STEP; (« TO GET CARRY BIT LOADED «) 

2822 * MIR.C :- C; 

2023 » IF CPUBUS <> 8 THEN PRINTBUS END 

2824 * SINGLE STEP; 

2025 » MIR.C := -C; 

2026 « IF CPUBUS <> FFFFH THEN PRINTBUS END; 

2027 « SINGLE STEP; 

2028 * IF CPUBUS <> 8 THEN PRINTBUS END; 

2829 » END; 
2030 

2031 29F7 CE 2A 68 CARRY. INP LDX =CARR.IN.TXT 

2032 29FA DF 0D STX SUB. ID 

2033 29FC BD CI 58 JSR EDMIR 
2834 29FF 5F CLR B 

2035 2A00 CE FF FF LDX =0FFFF 

2036 2A03 BD C2 AA JSR LOADREG R0 := FFFF; 

2037 2A06 5C INC B 

2038 2A07 CE 88 88 LDX =0 

2039 2A0A BD C2 AA JSR LOADREG Rl := 

2040 2A0D CE 25 FD LDX =FCT.MIR 

2041 2A10 BD CI ID JSR LDMIR 

2042 2A13 CE FF FF LDX =8FFFF 
2843 2A16 BC 3C 0E CPX CPU1 
2044 2A19 27 03 BEQ ENDIF1CI 



2045 
2046 
2047 
2048 
2049 
2058 
2051 
2852 
2053 
2854 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2862 
2063 
2064 
2865 
2066 
2867 
2868 
2069 
2070 
2071 
2072 
2073 
2074 
2075 



NEL 
HWTEST 

2A1B 
2A1E 
2A20 
2A23 
2A26 
2A29 
2A2B 
2A2E 
2A31 
2A33 
2A36 
2A39 
2A3C 
2A3E 
2A41 
2A44 
2A46 
2A49 
2A4C 
2A4F 
2A51 
2A54 
2A57 
2A5A 
2A5D 
2A5F 

2A62 
2A65 

2A68 
2A6B 
2A6E 



2076 
2077 
2078 
2079 
2080 
2081 
2082 
2883 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2897 
2098 
2099 



ALU 

BD El 
86 80 
B7 3C 
CE 00 
BC 3C 
27 03 
BD El 
B7 3C 
86 80 
B7 3C 
CE 00 
BC 3C 
27 03 
BD El 
B7 3C 
86 A0 
B7 3C 
CE FF 
BC 3C 
27 03 
BD El 
B7 3C 
CE 00 
BC 3C 
27 03 
BD El AA 

BD CI 5F 
7E 20 4D 



AA 



00 
0E 

AA 
15 

69 
00 
0E 

AA 
15 

09 
FF 
0E 

AA 
15 
00 
0E 



ENDIF1CI 



ENDIF2CI 



ENDIF3CI 



ENDIF4CI 



ENDIF5CI 



JSR 

LDAA 

STAA 

LDX 

CPX 

BEQ 

JSR 

STAA 

LDAA 

STAA 

LDX 

CPX 

BEQ 

JSR 

STAA 

LDAA 

STAA 

LDX 

CPX 

BEQ 

JSR 

STAA 

LDX 

CPX 

BEQ 

JSR 

JSR 
JMP 
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PRINTBUS (B,A)=ACTUAL; X=DESIRED«*******»» 

=100000B0L MIR.C : = 1 

MIR3 

=0 

CPU1 

ENDIF2CI 

PRINTBUS (B,A)=ACTUAL; X=DESIRED »*»**»** 

SSP SINGLE STEP 

=10000080L MIR.C := C 

MIR3 

-0 

CPU1 

ENDIF3CI 

PRINTBUS (B,A)=ACTUAL; X=DESIRED *****»**» 

SSP SINGLE STEP 

=10100000L MIR.C := -C 

MIR3 

=0FFFF 

CPU1 

ENDIF4CI 

PRINTBUS (B,A)=ACTUAL; X=DESIRED *»»•««•• 

SSP SINGLE STEP 

=0 

CPU1 

ENDIF5CI 

PRINTBUS (B,A)=ACTUAL; X=DESIRED *»*«..*»* 



43 41 52 CARR.IN.TXT BYTE 
52 59 2E 
49 4E 88 



EPMIR 
ENDTEST 

'CARRY. IN", 8 



MAKES RTS 



* 

« STACK TEST 

* 

* PROCEDURE STACK(X); 

VAR HELP1; 

BEGIN SUB. ID := 'STACK'; HELP1 := X; 
FOR B := TO 15 DO 

MIR := (1 - OR DZ 8 8 8 - - S ALU PANEL); («PUSH«) 

X := HELP1; 

FOR A := TO 15 DO 

CPUBUS := X; X.L. ROTATE; SINGLE STEP; 
END; 

MIR := (1 - OR DZ 8 8 - - S - ALU); (•POP*) 
FOR A := TO 15 DO 
X.R. ROTATE; 
IF CPUBUSOX THEN WRITELN(A); PRINTBUS END; 

* SINGLE STEP; 
END 
R.ROTATE(HELPl); 

END 
END; 
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HWTEST ALU 

2100 2A71 CE FF FE STACK0 LDX =0FFFE DEFAULT VALUE 

2101 2A74 24 02 BCC STACK IS SET BY MENU IF X.WORD WAS SPECIFIED 

2102 2A7B DE 0F LDX X.WORD 
2183 

2104 2A78 DF 2E STACK STX HELP1 

2105 2A7A CE 2A CF LDX =STACK.TEXT 

2106 2A7D DF 0D STX SUB. ID 

2107 2A7F 5F CLR B 

2108 2A80 BD C2 90 FOR1STK JSR RESET 

2109 2A83 CE 26 IB LDX =PUSH.MIR 

2110 2A86 BD CI ID JSR LDMIR 

2111 2A89 BD CI 58 JSR EDMIR 

2112 2A8C DE 2E LDX HELP1 

2113 2A8E 4F CLR A 

2114 2A8F FF 3C 0E F0R2STK STX CPU1 

2115 2A92 B7 3C 15 STAA SSP SINGLE STEP 

2116 2A95 BD 20 8D JSR X.L. ROTATE 

2117 2A98 4C INC A 

2118 2A99 81 10 CMPA =10 

2119 2A9B 2D F2 BLT F0R2STK 
2120 

2121 2A9D BD C2 59 JSR PUSHX 

2122 2AA0 CE 26 20 LDX =POP.MIR 

2123 2AA3 BD CI ID JSR LDMIR 

2124 2AA6 BD C2 70 JSR PULLX 

2125 2AA9 4F CLR A 

2126 2AAA BD 20 A3 F0R3STK JSR X.R.ROTATE 

2127 2AAD BC 3C 0E CPX CPU1 

2128 2AB0 27 06 BEQ ENDIF1STK 

2129 2AB2 BD 20 87 JSR WRITELN.A WRITE(STK COUNTER)»******««« 

2130 2AB5 BD El AA JSR PRINTBUS (B,A)=ACTUAL; X=DESIRED 

2131 2AB8 B7 3C 15 ENDIF1STK STAA SSP SINGLE STEP 

2132 2ABB 4C INC A 

2133 2ABC 81 10 CMPA =10 

2134 2ABE 2D EA BLT F0R3STK 
2135 

2136 2AC0 DE 2E LDX HELP1 

2137 2AC2 BD 20 A3 JSR X.R.ROTATE 

2138 2AC5 DF 2E STX HELP1 

2139 2AC7 5C INC B 

2140 2AC8 CI 10 CMPB =10 

2141 2ACA 2D B4 BLT FOR1STK 
2142 

2143 2ACC 7E 20 4D JMP END. TEST MAKES RTN 

2144 

2145 2ACF 53 54 41 STACK. TEXT BYTE 'STACK' ,0 

2AD2 43 4B 08 

2147 

2143 • PROCEDURE STATUS, BITS; 

2149 * FORMAT OF THE COMMAND STRING: 

2150 * WORD->R0; WORD->Rl; BYTE->MASK; BYTE->JUMP/NOJUMP 

2151 * VAR HELP1 : POINTER TO COMMAND. STRING; 

2152 « BEGIN SUB. ID := 'STAT'; 

2153 * HELP1 := tCOMMAND. STRING; 

2154 « REPEAT LOADREG(R0, HELPlt); 

2155 * INC(HELP1,2); LOADREG(Rl, HELPlt); 



NEL 








HWTEST 




ALU 


2156 








2157 








2158 








2159 








2160 








2161 








2162 








2163 








2164 








2165 








2166 








2167 








2168 








2169 








2170 








2171 








2172 


2AD5 


CE 


2B 8D 


2173 


2AD8 


DF 


0D 


2174 


2ADA 


CE 


2B 96 


2175 


2ADD 


DF 


2E 


2176 


2ADF 


BD 


CI 58 


2177 


2AE2 


BO 


28 8B 


2178 


2AE5 


5F 




2179 


2AE6 


BD 


C2 AA 


2180 


2AE9 


5C 




2181 


2AEA 


BD 


28 8B 


2182 


2AED 


BD 


C2 AA 


2183 


2AF0 


CE 


00 00 


2184 


2AF3 


BD 


CI C2 


2185 


2AF6 


CE 


25 FD 


2186 


2AF9 


BD 


CI 17 


2187 


2AFC 


CE 


26 25 


2188 


2AFF 


BD 


CI ID 


2189 








2190 


2B02 


86 


04 


2191 


2B04 


97 


30 


2192 


2B06 


DE 


2E 


2193 


2B08 


08 




2194 


2B09 


08 




2195 


2B0A 


DF 


2E 


2196 


2B0C 


A6 


00 


2197 


2B0E 


5F 




2198 


2B0F 


48 




2199 


2B10 


59 




2200 


2B11 


7A 


00 30 


2201 


2B14 


26 


F9 


2202 


2B16 


8A 


07 


2203 


2B18 


B7 


3C 0A 


2204 


2B1B 


F7 


3C 09 


2205 


2B1E 


B7 


3C 15 


2206 








2207 








2208 








2209 








2210 


2B21 


5F 




2211 


2B22 


B6 


3C 11 


2212 


2B25 


8B 


FC 
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SETUPC(0); (» SET MICRO. PC TO A DEFINED VALUE «) 

MIR := (0 18 ... JMP); (« JUMP TO U.ADR 18*) 

INC(HELP1,2); MIR.CONDCODE := HELPlt; 

SINGLE STEP; 

(* THE ADDRESS SHOULD BE EITHER 2 ( NO JUMP ) 
OR 10 IF THE JUMP WAS EXECUTED «) 

IF (U.ADR=10) XOR (HELPlt) THEN S.W.I(HELPlt, HELP1) END; 
UNTIL HELP1-END. OF. STREAM; 
EXX(PUSH.MIR); 

MIR := (8 10 -E JMP); (* JUMP ON NONEMPTY STACK *); SSP; 
IF U.ADRO10 THEN S.W.I(,., U.ADR) END; 
RESET; (* CLEARS THE STACK «); 

EDMIR; SSP; (« THERE'S STILL THE LAST JUMP ON NONEMPTY STACK «) 
IF U.ADROl THEN S.W.I(. ., U.ADR) END; 
END STATUS. BITS; 



STATUS 



STAT. 



ST..SH. 



LDX 


=STAT.TXT 




STX 


SUB. ID 




LDX 


=STAT.STRNG-2 


STX 


HELP1 




JSR 


EDMIR 




JSR 


INC. LOAD 




CLR 


B 




JSR 


LOAD. REG 


R0 := HELPlt; 


INC 


B 




JSR 


INC. LOAD 




JSR 


LOAD. REG 


Rl :- HELPlt; 


LDX 


=0 




JSR 


STUPC 


U.PC := 8 


LDX 


=FCT.MIR 


BUS :- R0 * Rl 


JSR 


EXX 




LDX 


=U. JMP. MIR 


JSR 


LDMIR 




SET THE 


CONDITION BITS ON THE RIGHT POSITION 


LDAA 


=4 




STAA 


HELP2 


COUNTER FOR SHIFT 


LDX 


HELP1 


GET THE MASK FROM THE STRING 


INX 






INX 






STX 


HELP1 


HELP1 POINTS TO THE BYTE WIT 


LDAA 


0,X 


LOWER PART OF THE MASK 


CLR 


B 


UPPER PART 


ASL 


A 




ROL 


B 




DEC 


HELP2 


DOESN'T CHANGE CARRY 


BNE 


ST.SH.LP 




ORAA 


=7 


MIR, PC ;= JMP 


STAA 


MIR2 


SET THE BITS INTO THE MIR 


STAB 


MIR3 




STAA 


SSP 


SINGLE STEP 


DER OF 


THIS PROGRAM 





DEAR 

I KNOW THAT THE FOLLOWING PART OF THE PROGRAM 

IS VERY HARD TO READ, BUT BELIEVE IT WORKS 

IT COMPUTES IF (U.ADRO10) XOR HELPlt THEN 

CLR B B := FALSE - ASSUME JUMP CONDITION 

LDAA UAR0 ONLY LOWER BYTE IS OF INTEREST 

ADDA =BFC IF U.ADR- 1 THEN NOCARRY; IF U.ADR-10 THEN CARRY 



NEL 
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HWTEST 




ALU 










2213 


2B27 


eg 


60 








ADCB 


=3 IF U.ADR=1 THEN B=8 ELSE B-l 


2214 


2B29 


DE 


2E 








LDX 


HELP1 


2215 


2B2B 


E8 01 








EORB 


1,X X POINTS TO THE MASK 


2216 


2B2D 


27 


08 








BEQ 


STAT. OK 


2217 


2B2F 


DE 


2E 








LDX 


HELP1 PREPARE FOR SWI 


2218 


2B31 


E6 


60 








LDAB 


0,X GET THE LAST MASK 


2219 


2B33 


B5 


3C 


11 






LDAA 


UAR0 


2220 


2B36 


3F 










SWI 


B=MASK, A=UAR0; X=ADR IN THE STRING; *«***«**«* 


2221 


2B37 


DE 


2E 




STAT 


OK 


LDX 


HELP1 


2222 


2B39 


8C 


2B 


F0 






CPX 


=ST.END.STR 


2223 


2B3C 


26 


A4 








BNE 


STAT.RPT 


2224 










* 








2225 










* 




NOW TEST 


THE STACK EMPTY BIT 


2226 


2B3E 


CE 


00 


00 






LDX 


=0 


2227 


2B41 


BD 


CI 


C2 






JSR 


STUPC 


2228 


2B44 


CE 


2B 


92 






LDX 


=STAT.TXT,1 


2229 


2B47 


DF 


6D 








STX 


SUB. ID 


2238 


2B49 


CE 


26 


IB 






LDX 


=PUSH.MIR 


2231 


2B4C 


BD 


CI 


17 






JSR 


EXX EXECUTE PUSH STACK 


2232 


2B4F 


86 


60 








LDAA 


=60 TO LOAD THE STACK EMPTY BIT INTO THE REGISTER 


2233 


2B51 


B7 


3C 


0B 






STAA 


MIR1 WE HAVE TO EXECUTE ANY NON STACK INSTRUCTION 


2234 


2B54 


B7 


3C 


15 






STAA 


SSP 


2235 


2B57 


CE 


26 


25 






LDX 


=U. JMP. MIR THERE IS ALREADY THE STACK BIT SET 


2236 


2B5A 


BD 


CI 


ID 






JSR 


LDMIR 


2237 


2B5D 


FE 


3C 


10 






LDX 


UAR1 


2238 


2B60 


8C 


60 


03 






CPX 


=3 


2239 


2B63 


27 


01 








BEQ 


STAT. OK.l 


2240 


2B65 


3F 










SWI 


X—UADR #*******«#** *w ************■#****»* 


2241 


2B66 


BD 


C2 


90 


STAT 


OK.l 


JSR 


RESET IT CLEARS THE STACK 


2242 


2B69 


BD 


CI 


58 






JSR 


EDMIR RESET CLEARED THE EDMIR 


2243 


2B6C 


CE 


00 


60 






LDX 


=8 


2244 


2B6F 


BD 


CI 


C2 






JSR 


STUPC JUMP TO ZERO 


2245 


2B72 


CE 


25 


E4 






LDX 


=CLRRB.MIR EXECUTE ANY INSTRUCTION TO LOAD THE COND REG 


2246 


2B75 


BD 


CI 


17 






JSR 


EXX 


2247 


2B78 


CE 


26 


25 






LDX 


=U. JMP. MIR 


2248 


2B7B 


BD CI 


ID 






JSR 


LDMIR 


2249 


2B7E 


B7 


3C 


15 






STAA 


SSP 


2250 


2B81 


FE 


3C 


10 






LDX 


UAR1 


2251 


2B84 


8C 


00 


10 






CPX 


=10 


2252 


2B87 


27 


01 








BEQ 


ST AT. OK. 2 


2253 


2B89 


3F 










SWI 


X=U , ADR******* ************************* 


2254 


238A 


7E 20 


4D 


STAT 


OK. 2 


JMP 


END. TEST 


2255 










* 








2256 


2B8D 


43 4F 


4E 


STAT 


TXT 


BYTE 


'COND',0 




2B90 


44 


00 












2257 


2B92 
2B95 


43 
44 


4F 
53 


4E 
00 


STAT 


TXT1 


BYTE 


'CONDS',8 


2258 










ST. JUMP 


EQU 


1 


2259 










ST.NOJUMP 


EQU 





2260 










* 








2261 


2B98 


00 


80 


00 


STAT 


STRNG WORD 


0080,0888 HALFBIT 




2B9B 


00 














2262 


2B9C 


01 


61 








BYTE 


81, ST. JUMP 


2263 


2B9E 
2BA1 


00 
00 


00 


00 






WORD 


0008,0008 


2264 


2BA2 


01 


00 








BYTE 


81, ST.NOJUMP 


2265 










• SIGN 







NEL 
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HWTEST 




ALU 










2266 


2BA4 
2BA7 


00 
00 


00 


00 






WORD 


0888,0000 


2267 


2BA8 


02 


00 








BYTE 


02, ST. NO. JUMP 


2268 


2BAA 
2BAD 


80 
00 


00 


00 






WORD 


8000,8888 


2269 


2BAE 


02 


01 








BYTE 


82, ST. JUMP 


2270 


2BB0 
2BB3 


80 
00 


00 


80 






WORD 


8008,8600 SIGN WITH OVERFLOW 


2271 


2BB4 


02 


01 








BYTE 


02, ST. JUMP 


2272 










* 


FIRST 






2273 


2BB6 

2BB9 


00 

00 


00 


00 






WORD 


8888,0000 


2274 


2BBA 


04 


00 








BYTE 


04.ST.NOJUMP 


2275 


2BBC 
2BBF 


80 
00 


00 


00 






WORD 


8888,8808 


2276 


2BC0 


04 


01 








BYTE 


84, ST. JUMP 


2277 










* 


OVERFLOW 




2278 


2BC2 
2BC5 


00 
00 


00 


00 






WORD 


8888,0008 


2279 


2BC6 


08 


00 








BYTE 


e8,ST.N0JUMP 


2288 


2BC8 
2BCB 


88 
88 


83 


88 






WORD 


8888,8888 


2281 


2BCC 


08 


01 








BYTE 


08, ST. JUMP 


2282 










* 


ZERO 






2283 


2BCE 
2BD1 


00 
00 


00 


00 






WORD 


0808,0000 


2284 


2BD2 


10 


01 








BYTE 


18, ST. JUMP 


2285 


2BD4 
2BD7 


00 
00 


01 


00 






WORD 


8801,8088 


2286 


2BD8 


10 


00 








BYTE 


18, ST. NO JUMP 


2287 










* 


CARRY 






2288 


2BDA 

2BDD 


00 
00 


00 


00 






WORD 


8008,0000 


2289 


2BDE 


20 


00 








BYTE 


20, ST. NO JUMP 


2298 


2BE8 
2BE3 


FF 
01 


FF 


00 






WORD 


BFFFF.l 


2291 


2BE4 


20 


01 








BYTE 


28, ST. JUMP 


2292 










* 


INVERSE 






2293 


2BE6 
2BE9 


00 
00 


00 


00 






WORD 


0008,8008 


2294 


2BEA 


00 


00 








BYTE 


08, ST. NO JUMP 


2295 


2BEC 
2BEF 


00 
00 


00 


00 






WORD 


6888,8008 


2296 


2BF0 


80 


01 








BYTE 


88, ST. JUMP 


2297 










ST. END. SIR EQU 


*-2 


2298 










* 








2299 










**«*******««*«*«««»**««**«**«*****«#«**«««««#**» 


2300 










* 








2301 










* 


PROCEDURE LOOPCHAIN; 


2302 










* 


BEGIN LOOP 


CHAIN(X.WORD) END END; 


2303 










* 








2304 


2BF2 


CE 


2C 


A4 


LOOPCHAIN LDX 


=ALU. CHAIN 


2305 


2BF5 


BD 


20 


15 






JSR 


CHAIN 


2306 


2BF8 


20 


F8 








BRA 


LOOPCHAIN 


2307 










* 









SEITE NR 48 



2388 n>**tt*«*««««*«««*«««**«**««***«***«**)|[**«««8«*«««««]fc)t!«ss!$«**«e 

2389 
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HWTEST ALU 

2310 « ENTRY FOR ALU SUBMONITOR 

2311 

2313 

2314 2BFA CE 2C 05 ALU 

2315 2BFD DF 0B 

2316 2BFF CE 2C 09 

2317 2C02 7E C3 91 

2318 » 

2319 ***************** ***#********#*********sa**#«w****s***ss**«it* 

2320 

'ALU',0 

14Z 

'0 OUTP',0 



LDX 


=ALU.TEXT 


STX 


MAIN. ID 


LDX 


=ALU.MENU 


JMP 


COMMANDS 



2321 


2C05 
2C08 


41 

00 


4C 


55 


ALU. TEXT BYTE 


2322 










* 


2323 


2C09 


0E 






ALU. MENU BYTE 


2324 


2C0A 


4F 


20 


4F 


BYTE 




2C0D 


55 


54 


50 






2C1B 


00 








2325 


2C11 


26 


2A 




WORD 


2326 


2C13 


49 


20 


49 


BYTE 




2C16 


4E 


50 


00 




2327 


2C19 


26 


72 




WORD 


2328 


2C1B 


48 


20 


53 


BYTE 




2C1E 


48 


49 


46 






2C21 


54 


45 


52 






2C24 


00 








2329 


2C25 


26 


AA 




WORD 


2330 


2C27 


4D 


23 


4D 


BYTE 




2C2A 


41 


53 


4B 






2C2D 


00 








2331 


2C2E 


27 


0E 




WORD 


2332 


2C30 


52 


20 


52 


BYTE 




2C33 


45 


47 


20 






2C36 


41 


44 


52 






2C39 


00 








2333 


2C3A 


27 


58 




WORD 


2334 


2C3C 


55 


20 


53 


BYTE 




2C3F 


4F 


55 


52 






2C42 


43 


45 


00 




2335 


2C45 


27 


A5 




WORD 


2336 


2C47 


50 


20 


4F 


BYTE 




2C4A 


50 


45 


52 






2C4D 


41 


54 


49 






2C50 


4F 


4E 


53 






2C53 


00 








2337 


2C54 


28 


ID 




WORD 


2338 


2C56 


54 


20 


53 


BYTE 




2C59 


48 


2E 


44 






2C5C 


45 


53 


54 






2C5F 


00 








2339 


2C60 


29 


27 




WORD 


2340 


2C62 


4C 


20 


4D 


BYTE 




2C65 


55 


4C 


54 






2C68 


00 








2341 


2C69 


29 


64 




WORD 


2342 


2C6B 


56 20 


44 


BYTE 




2C6E 


49 


56 


08 





OUT2901 
'I INP',0 

INP2901 

'H SHIFTER' ,0 



SHIFTR0 
'M MASK',0 



MASK 

'R REG ADR',0 



REG. ADR 

'U SOURCE', 



SOURCE 

'P OPERATIONS', 



FUNCTIONS 

'T SH.DEST',0 



SH.DEST 
'L MULT',0 



MULT 

'V DIV',0 



NEL 










MOTOROLA ASSEMBLER 




HWTEST 




ALU 






2343 


2C71 


29 


A4 




WORD 


DIVISION 


2344 


2C73 


59 


20 


43 


BYTE 


'Y CARRY', 




2C76 


41 


52 


52 








2C79 


59 


08 








2345 


2C7B 


29 F7 




WORD 


CARRY. INP 


2346 


2C7D 


53 


20 


53 


BYTE 


'S STACK ',8 




2C80 


54 


41 


43 








2C83 


4B 


00 








2347 


2C85 


2A 


71 




WORD 


STACK0 


2348 


2C87 


4E 


20 


43 


BYTE 


'N CONDITION', 




2C8A 


4F 


4E 


44 








2C8D 


49 


54 


49 








2C90 


4F 


4E 


00 






2349 


2C93 


2A D5 




WORD 


STATUS 


2358 


2C95 


58 


20 


45 


BYTE 


'X EXEC CHAIN ',0 




2C98 


58 


45 


43 








2C9B 


28 


43 


48 








2C9E 


41 


49 


4E 








2CA1 


08 










2351 


2CA2 


2B 


F2 




WORD 


LOOPCHAIN 


2352 










* 




2353 










******** * ******* ************** St ******£** 


2354 










* 




2355 


2CA4 


10 






ALU. CHAIN BYTE 


ALU.CH0.LEN 


2356 


2CA5 
2CA8 


20 

05 


4A 


2C 


WORD 


SET. MAIN. ID.ALU.TEX 


2357 


2CA9 
2CAC 


26 

89 


2A 


00 


WORD 


OUT2901,0 


2358 


2CAD 
2CB0 


26 
00 


72 


00 


WORD 


INP2901.0 


2359 


2CB1 
2CB4 


26 
01 


Bl 


00 


WORD 


SHIFTER, 1 


2360 


2CB5 
2CB8 


26 
FE 


Bl 


FF 


WORD 


SHIFTER, 0FFFE 


2361 


2CB9 
2CBC 


27 
00 


0E 


00 


WORD 


MASK, 8 


2362 


2CBD 
2CC0 


27 

00 


58 


00 


WORD 


REG. ADR, 8 


2363 


2CC1 
2CC4 


27 

00 


A5 


00 


WORD 


SOURCE, 


2364 


2CC5 
2CC8 


28 

08 


ID 


00 


WORD 


FUNCTIONS, 


2365 


2CC9 
2CCC 


29 
08 


27 


00 


WORD 


SH.DEST,0 


2366 


2CCD 
2CD0 


29 
88 


64 


00 


WORD 


MULT.0 


2367 


2CD1 
2CD4 


29 
08 


A4 


00 


WORD 


DIVISIONS 


2368 


2CD5 
2CD8 


29 
00 


F7 


00 


WORD 


CARRY. INP, 


2369 


2CD9 
2CDC 


2A 
01 


78 


00 


WORD 


STACK, 1 


2370 


2CDD 


2A 


78 FF 


WORD 


STACK, 0FFFE 




2CE8 


FE 










2371 


2CE1 
2CE4 


2A 

00 


D5 


00 


WORD 


STATUS, 


2372 










ALU.CH0.LEN EQU 


•-1-ALU. CHAIN/4 



SEITE NR 58 



NEL MOTOROLA ASSEMBLER 67/65/82 88.44.28. SEITE NR 51 

HWTEST ALU 

2373 2CE5 END ALU 



NEL MOTOROLA ASSEMBLER 07/05/82 08.44.28. SEITE NR 52 

HWTEST 

2375 #***»******#****#*#«»**«****s**#***»**s****«##****##a** 

2376 2CE5 BEGIN STORE. PORT 

2377 DEF STOR.PORT,STOR.CHAIN,STOR.CH.LN 

2378 USE END. TEST, CHAIN, SET. MAIN, ID, WRITELN. A 

2379 USE XMR5.XMW3 
2380 

2381 * DATA PORT AND MAIN MEMORY TEST PROGRAMS 
2382 

2383 * JIRKA HOPPE 

2384 « FARRELL OSTLER 
2335 * 23 SEPT 80 
2385 

2387 ft********************************]!!****^**************** 

2388 

2389 * EXTENSIONS TO HANDLE EXTENDED MEMORY 

2390 

2391 * FAST READ IN THE MEMORY BANK 1 

2392 2CE5 86 01 RMMS1 LDAA =1 

2393 2CE7 B7 3C 0F STAA CPU0 

2394 2CEA 86 DD LDAA =0DD SRC=PANEL; DST=MAR1 

2395 2CEC B7 3C 0C STAA MIR8 

2396 2CEF B7 3C 15 STAA SSP 

2397 2CF2 7E C2 11 JMP RMMS USE THE OLD GOOD ROUTINE 
2398 

2399 * FAST WRITE IN THE MEMORY BANK 1 

2400 2CF5 36 WMMS1 PSH A 

2401 2CF6 86 01 LDAA =1 

2402 2CF8 B7 3C 0F STAA CPU0 

2403 2CFB 86 DD LDAA =eDD SRC=PANEL; DST=MAR1 

2404 2CFD B7 3C 0C STAA MIR0 

2405 2D00 B7 3C 15 STAA SSP 

2406 2D83 32 PUL A 

2407 2D04 7E C2 3D JMP WMMS USE THE OLD GOOD ROUTINE 
2408 

2409 *»»******«***«****««»** * t **#»s****s***«*»«8%* 

2418 * 

241.1 

2412 * READ LOOP TEST 

2413 

2414 . COMMAND FORM: ADR R 

2415 

2416 * READS DATA FROM ADR CONTINUOUSLY. 

2417 » , ADR IS FOUR HEX DIGITS 

2418 * 

2419 » 

2420 * PROCEDURE READ LOOP(X.WORD); 

2421 * BEGIN 

2422 * X:=X.WORD; («X GETS ADR TO BE READ«) 

2423 « EDMIR 

2424 » RMM; («READ MAIN MEMORY LOCATION AT X*) 

2425 • LOOP 

2426 * RMMS; (.READ MAIN MEMORY SHORT FORM*) 

2427 « BREAK(A); 

2428 « IF AO0 THEN EXIT; («EXIT IF ANY KEY WAS TYPED*) 

2429 * END (*LOOP«) 

2430 » END; 



NEL 
HWTEST 



STOREPORT 
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2431 2D07 DE 0F 

2432 2D09 BD CI 58 

2433 2D8C BD CI FE 
2434 

2435 2D0F BD C2 11 

2436 2D12 BD C0 46 

2437 2D15 4D 

2438 2D16 27 F7 

2439 2D18 39 
2440 

2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 

2462 2D19 DE 0F 

2463 2D1B BD C2 FE 

2464 2D1E D6 0F 

2465 2D20 96 10 

2466 2D22 
246? 2D25 
2468 

2469 2D28 

2470 2D2B 

2471 2D2C 

2472 2D2F 
2473 
2474 

2475 2D33 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 



2D30 32 
2D31 27 F5 
39 



READLOOP LDX 
JSR 

JSR 

EQU 
JSR 
JSR 
TST 
BEQ 
RTS 



LOOP 
XMR1 



X.WORD 

EDMIR 

RMM 

* 

RMMS 

BREAK 

A 

LOOP 



* 

WRITE LOOP 



FORM OF COMMAND: ADR V VALUE 

ADR AND VALUE ARE EACH FOUR HEX DIGITS 

VALUE IS CONTINUOUSLY WRITTEN INTO ADR 

PROCEDURE WRLOOP(X . WORD) ; 

BEGIN 

X:-X. WORD ;GETWORD(X. WORD; 

B:=X.WORD DIV 256; A:=X.WORD MOD 256; 

WMM (.WRITE B,A INTO ADDRESS X») 

LOOP 

WMMS; (.WRITE, SHORT FORM.) 

PUSH(A); 

BREAK(A); 

IF AO0 THEN PULL(A); EXIT; ENDIF; 

PULL(A); 
END (.LOOP.); 



(«B,A ;= VALUE.) 



WRLOOP 



BD CI 58 
BD C2 28 

LABELW 
BD C2 3D XMW1 
36 

BD C0 46 
4D 



LDX 

JSR 

LDAB 

LDAA 

JSR 

JSR 

EQU 

JSR 

PSH 

JSR 

TST 

PUL 

BEQ 

RTS 



X.WORD 

GET. WORD 

X.WORD 

X.WORD+1 

EDMIR 

WMM 

* 

WMMS 

A 

BREAK 

A 

A 

LABELW 



**##********#***#S***#**#$W****#i*******»*#S**S#*# ******************** 
* 

BOTH READ AND WRITE LOOP 

* 

FORMAT: ADR B VALUE 

RESULT: CONTINUOUSLY WRITES VALUE INTO ADR THEN READS IT 

* 

« PROCEDURE READ. WRITE(X. WORD); 

BEGIN 
X:=X.WORD; 
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HWTEST STOREPORT 

2488 * GETWORD; EDMIR; 

2489 « LOOP 

2490 * B:=X.WORD DIV 256; A:=X.WORD MOO 256; 

2491 * WMM; («MEMORY(X) := B,A *) 

2492 * RMM; (* B,A := MEMORY(X) *) 

2493 * BREAK(A); 

2494 * IF ASO0 THEN EXIT; 

2495 * END; (*LOOP«) 

2496 * END; (*READ. WRITE*) 
2497 

2498 2D34 DE 0F RD. WRITE LDX X.WORD 

2499 2D36 BD C2 FE JSR GETWORD 

2500 2D39 BD CI 58 JSR EDMIR 

2501 2D3C BD CI FE JSR RMM JUST TO SET A PROPER MIR1-MIR4 

2502 2D3F D6 0F RWLOOP LDAB X.WORD 

2503 2D41 96 10 LDAA X.WORD+1 

2504 2D43 BD C2 28 XMW2 JSR WMM 

2505 2D46 BD CI FE XMR2 JSR RMM 

2506 2D49 BD C0 46 JSR BREAK 

2507 2D4C 4D TST A 

2508 2D4D 27 F0 BEQ RWLOOP 

2509 2D4F 39 RTS 
2510 

2511 
2512 

25 13 *»*»*********»«*•********#*#**#**»*****«* ****«»**»*»»*«*»* 

2514 * 

2515 » ADDRESS CHANGE OF ALL BITS 
2516 

2517 « FORMAT: C 

2518 

2519 * PROCEDURE ADR.CHNG; 

2520 * BEGIN 

2521 * EDMIR; 

2522 * X:=0; RMM; ("INITIALIZE LOOP*) 

2523 * LOOP 

2524 * X:=FFFF; RMMS; 

2525 * X:=0; RMMS; 

2526 * BREAK(A); 

2527 * IF AO0 THEN EXIT; 

2528 * END; (*LOOP«) 

2529 * END; 
2530 

2531 2D50 BD CI 58 ADR.CHNG JSR EDMIR 

2532 2D53 CE 00 00 LDX =0 

2533 2D56 BD CI FE JSR RMM 

2534 2D59 CE FF FF LI LDX =0FFFF 

2535 2D5C BD C2 11 XMR3 JSR RMMS 

2536 2D5F CE 00 00 LDX =0 

2537 2D62 BD C2 11 XMR4 JSR RMMS 

2538 2D65 BD C0 46 JSR BREAK 

2539 2D68 4D TST A 

2540 2D69 27 EE BEQ LI 

2541 2D6B 39 RTS 
2542 

2544 INSPECT EQU * 



NEL 












MOTOROLA ASSEMBLER 07/05/82 08.44 


.28. SEITE 




HWTEST 




ST0REP0RT INSPECT 










2545 


2D6C 










BEGIN INSPECT 






2546 












DEF 


XMR5.XMV3 






2547 










VALUE 


EQU 


HELP2 






2548 










« 










2549 










* 


FORMAT 






2558 










* 


ADDRESS 'I' VALUE 


[ ':' NEWVALUE ] [','] 




2551 










» 


ADDRESS = UP TO 


4 HEX DIGIT 




2552 










* 


NEWVALUE = UP TO 


4 HEX DIGIT 




2553 










* 










2554 










S 


PROCEDURE INSPECT 






2555 










X 


BEGIN X := X.WORO; 




2556 










* 


LOOP 






255? 










* 




HELPl := X; 


(A,B) := RMM(X); 




2558 










* 




VALUE := (A,B); OUT. WORD( VALUE) ; 




2559 










* 




R.CH(A); 






2560 










* 




IF A = ' : ' THEN 




2561 










* 




GET. WORD; 


(A,B) := X.WORD; X := HELPl; 


WMM(A,B,X); 


2562 










* 




END; 






2563 










* 




IF A = BACKSLASH 




2564 










« 




THEN 






2565 










* 




DEC(X); 






2566 










* 




ELSIF A = ' , 


1 




2567 










* 




THEN 






2568 










» 




INC(X); 






2569 










* 




ELSE 






2570 










X 




EXIT 






2571 










a 




END; 






2572 










* 




HELPl := X; 






2573 










* 




CRLF; OUT.VORD(HELPl); WRITE( ' ') 




2574 










* 


END 






2575 










* 


END 






2576 










« 










2577 


2D6C 


DE 


0F 






LDX 


X.WORD 






2578 


2D6E 


DF 


2E 






STX 


HELPl 






2579 


2D70 


3D 


CI 


58 




JSR 


EDMIR 






2580 










LOOP 


EQU 


* 






2581 


2D73 


BD 


CI 


FE 


XMR5 


JSR 


RMM 






2582 


2D76 


D7 


38 






STAB 


VALUE 


HIGHER PART 




2583 


2D78 


97 


31 






STAA 


VALUE+1 


LOWER PART 




2584 


2D7A 


CE 


00 


30 




LDX 


-VALUE 






2585 


2D70 


BD 


C0 


E3 




JSR 


OUT. WORD 






2586 


2D88 


BD 


C0 


24 




JSR 


R.CH 






2587 


2D83 


81 


3A 






CMPA 


= ' : ' 






2588 


2D85 


26 


0E 






BNE 


ENDIF1 






2589 


2D87 


BD 


C2 


FE 




JSR 


GET. WORD 






2598 


2D8A 


36 








PSH 


A 


SAVE DELIMITER 




2591 


2D8B 


06 


0F 






LDAB 


X.WORD 


HIGHER PART 




2592 


2D8D 


96 


10 






LDAA 


X.WORD+1 


LOWER PART 




2593 


2D8F 


DE 


2E 






LDX 


HELPl 






2594 


2D91 


BD 


C2 


28 


XMW3 


JSR 


WMM 






2595 


2D94 


32 








PUL 


A 


GET DELIMITER BACK 




2596 


2D95 


81 


2C 




ENDIF1 


CMPA 


=COMMA 






2597 


2D97 


27 


08 






BEQ 


ENDIF2 






2598 


2099 


81 


5C 






CMPA 


=BACK. SLASH 






2599 


2D9B 


27 


09 






BEQ 


ENDIF3 






2600 


2D9D 


BD 


CI 


5F 




JSR 


EPMIR 






2601 


2DA8 


39 








RTS 









LDX 


HELP! 


INX 




BRA 


ENDIF 


LDX 


HELP1 


DEX 




STX 


HELP1 


JSR 


W.CRLF 


JSR 


PRINT. X 


JSR 


W.l. BLANK 


BRA 


LOOP 


END 


INSPECT 



NEL MOTOROLA ASSEMBLER 07/05/82 08.44.28. SEITE NR 55 

HWTEST STOREPORT INSPECT 

2602 

2603 2DA1 DE 2E ENDIF2 

2604 2DA3 08 

2605 2DA4 20 03 

2606 2DA6 DE 2E ENDIF3 

2607 2DA8 09 

2608 2DA9 DF 2E ENDIF 

2609 2DAB BD C0 78 

2610 2DAE BD C2 87 
2511 2DB1 BD C0 62 

2612 2DB4 20 BD 

2613 2DB6 

2615 

2616 » PROCEDURE MAIN. MEM. TEST; 

2617 * VAR HELP1 = CURRENT MEMORY PATTERN; 

2618 « HELP2 = INCREMENT; 

2619 * BEGIN 

2620 * ENTRY PATTERN: HELP2 :-B ; HELP1 := X.WORD; 

2621 * ENTRY RANDOM : HELP2 :=X.WORD; HELP1 :- 0; 
2622 

2623 « SUB.[0 := 'MEM'; (B,A) :=HELP1; 

2624 * FOR < := TO 0FFFFH DO WMMS(X, B,A); 

2625 * (B,A) := (B,A) + HELP2; 

2626 * 

2627 * POP(HELPl) ; 

2628 « FOR < := TO BFFFFH DO 

2629 * IF READ MEMORY(X) <> HELP1 THEN 

2630 « PRINT(ADR); PRINTERR( ACTUAL, EXPECTED) 

2631 » HELP1 := HELP1+ HELP2; 

2632 * END MAIN. MEM. TEST; 
2633 

2634 2DB6 DF 0F PATTERN0 STX X.WORD 

2635 2DB8 CE 00 00 PATTERN LDX =0 

2636 2DBB DF 30 STX HELP2 

2637 2DBD DE 0F LDX X.WORD 

2638 2DBF DF 2E STX HELP1 

2639 2DC1 20 0B BRA MEM.TST 

2640 2DC3 DF 0F RANDOM0 STX X.WORD 

2641 2DC5 DE 6F RANDOM LDX X.WORD 

2642 2DC7 DF 30 STX HELP2 

2643 2DC9 CE 00 00 LDX =0 

2644 2DCC DF 2E STX HELP1 

2645 2DCE CE 2E 17 MEM.TST LDX -MEM.TXT 

2646 2DD1 DF 0D STX SUB. ID 

2647 2DD3 BD CI 58 JSR EDMIR 

2648 2DD6 BD CI FE JSR RMM JUST TO SET A NICE MIR1-MIR4 

2649 2DD9 CE 00 00 LDX =0 

2650 2DDC 96 2F LDAA HELP1+1 

2651 2DDE D6 2E LDAB HELP1 

2652 FORI EQU » 

2653 2DE0 BD C2 3D XMW4 JSR WMMS FAST WMM 

2654 2DE3 9B 31 ADDA HELP2+1 

2655 2DE5 D9 30 ADCB HELP2 

2656 2DE7 08 INX 

2657 2DE8 26 F6 release. TEXT 

84604 y 
edhj2.BAK Clil.dsk4.SIL edfigSl.SIL 9release.TEXT 

Afirst.LST »«This software is distributedGGG 

QSS 

*«»/ and«*») . . .5 , . . , 

**»/ * s st a 



2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 

2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2780 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 



2E03 
2E05 
2E07 

2E09 
2E0B 
2E0D 
2E0F 
2E11 
2E12 
2E14 

2E17 
2E1A 



2E1B 
2E1E 
2E21 
2E23 
2E26 
2E29 
2E2C 
2E2F 
2E32 
2E35 
2E38 
2E3B 
2E3E 
2E40 
2E43 
2E46 
2E49 
2E4C 
2E4F 



2E50 
2E53 
2E56 



(B,A)=ACTUAL; X=EXPECTED 
DE 32 LDX HELP3 

96 2F NOERR LDAA HELP1+1 

D6 2E LDAB HELP1 



9B 31 
D9 30 
97 2F 
D7 2E 
03 

26 D9 
7E 20 4D 

4D 45 4D 
00 



11 
10 



ADDA HELP2+1 

ADCB HELP2 

STAA HELP1+1 

STAB HELP1 

INX 

BNE F0R2 

JMP END. TEST 

* 

MEM. TXT BYTE 'MEM',0 



*****tf**ft#*******as##*####tf****$#ir# ****** 



* SET PROPER PROCEDURES FOR A GIVEN MEMORY BANK 



CE C2 
7D 00 
27 03 
CE 2C E5 
FF 2D 10 SB1 
FF 2D 47 
FF 2D 5D 
FF 2D 63 
FF 2D 74 
FF 2D EE 
CE C2 3D 
7D 00 10 
27 03 
CE 2C F5 
FF 2D 29 
FF 2D 44 
FF 2D 92 
FF 2D El 
39 



SETBNK LDX 
TST 
BEQ 
LDX 
STX 
STX 
STX 
STX 
STX 
STX 
LDX 
TST 
BEQ 
LDX 
STX 
STX 
STX 
STX 
RTS 



SB2 



=RMMS BANKS 

X.WORD+1 

SB1 

=RMMS1 BANK1 

XMR1+1 

XMR2+1 

XMR3+1 

XMR4+1 

XMR5+1 

XMR6+1 

-WMMS BANK0 

X.WORD+1 

SB2 

=WMMS1 BANK1 

XMW1+1 

XMW2+1 

XMV3+1 

XMV4+1 



*****S«tt*C*************X*«***********tt**#«**8***8 «!£«**«****»***» 

CE 2E EE LOOPCHAIN LDX =STOR. CHAIN 

BD 20 15 JSR CHAIN 

20 F8 BRA LOOPCHAIN 



NEL 










MOTOROLA ASSEMBLER 




HWTEST 




STOREPORT 




2715 










ENTRY FOR 


THE PORT AND STORE SU 


2716 










* 




2717 


2E58 


CE 


2E 


63 


STOR.PORT LDX 


=S.P.TEXT 


2718 


2E5B 


DF 


8B 




STX 


MAIN. ID 


2719 


2E5D 


CE 


2E 


6E 


LDX 


=ST.PT.MENU 


2720 


2E60 


7E 


C3 


91 


JMP 


COMMANDS 


2721 










* 




2722 










****«*#**« asaa* ****##*#*#*****«******#«*# 


2723 










* 




2724 


2E63 


50 


4F 


52 


S, P. TEXT BYTE 


'PORT. STORE', 




2E66 


54 


2E 


53 








2E69 


54 


4F 


52 








2E6C 


45 


00 








2725 


2E6E 


09 






ST. PT. MENU BYTE 


9 


2726 


2E6F 


52 


20 52 


BYTE 


'R READ LOOP',0 




2E72 


45 


41 


44 








2E75 


20 


4C 


4F 








2E78 


4F 


50 


00 






2727 


2E7B 


2D 


07 




WORD 


READLOOP 


2728 


2E7D 


57 


20 


57 


BYTE 


"V WRITE LOOP',0 




2E80 


52 


49 


54 








2E83 


45 


20 


4C 








2E86 


4F 


4F 


58 








2E89 


00 










2729 


2E8A 


2D 


19 




WORD 


WRLOOP 


2730 


2E8C 


51 


20 


52 


BYTE 


'Q RD.WR LOOP',0 




2E8F 


44 


2E 


57 








2E92 


52 


20 


4C 








2E95 


4F 


4F 


50 








2E98 


00 










2731 


2E99 


2D 


34 




WORD 


RD. WRITE 


2732 


2E9B 


4F 


20 


4F 


BYTE 


'0 OSCILLATING ADR',0 




2E9E 


53 


43 


49 








2EA1 


4C 


4C 


41 








2EA4 


54 


49 


4E 








2EA7 


47 


20 


41 








2EAA 


44 


52 


00 






2733 


2EAD 


2D 


50 




WORD 


ADR.CHNG 


2734 


2EAF 


50 


20 


50 


BYTE 


'P PATTERN ',0 




2EB2 


41 


54 


54 








2EB5 


45 


52 


4E 








2EB8 


00 










2735 


2EB9 


2D 


B8 




WORD 


PATTERN 


2736 


2EBB 


4E 


20 


52 


BYTE 


'N RANDOM ',8 




2EBE 


41 


4E 


44 








2EC1 


4F 


4D 


00 






2737 


2EC4 


2D 


C5 




WORD 


RANDOM 


2738 


2EC6 


49 


20 


49 


BYTE 


'I INSPECT ',0 




2EC9 


4E 


53 


50 








2ECC 


45 


43 


54 








2ECF 


00 










2739 


2ED0 


2D 


6C 




WORD 


INSPECT 


2740 


2ED2 


53 


20 


53 


BYTE 


'S SET BANK',0 




2ED5 


45 


54 


20 








2ED8 


42 


41 


4E 








2EDB 


4B 


00 








2741 


2EDD 


2E 


IB 




WORD 


SETBNK 
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NEL MOTOROLA ASSEMBLER 07/85/82 08.44.28, SEITE NR 59 

HWTEST STOREPORT 

2742 2EDF 58 20 45 BYTE 'X EXEC CHAIN ',0 
2EE2 58 45 43 

2EE5 20 43 48 

2EE8 41 49 4E 

2EEB 00 

2743 2EEC 2E 50 WORD LOOPCHAIN 
2744 

2745 **»«*««*«#*****#*««»*««»#**#**«********«#««#**««*««#«##»*$#«$*%# 

2746 

2747 2EEE 04 STOR. CHAIN BYTE STOR.CH.LN 

2748 2EEF 2D B6 00 WORD PATTERN0.0 
2EF2 00 

2749 2EF3 2D C3 00 WORD RANDOM0,1 
2EF6 01 

2750 2EF7 2D B6 FF WORD PATTERNS, BFFFF 
2EFA FF 

2751 2EFB 2D C3 55 WORD RANDOM0.5531 
2EFE 31 

2752 STOR.CH.LN EQU -1-STOR. CHAIN/4 
2753 

2754 2EFF END STORE. PORT 

2755 

2756 2EFF END HWTEST 

2757 



